Bl 



USER OOCUMENTATION 



HACRO H1115 07 FEB 04 10:58 



SEQ 001 



.REM 



IDENTIFICATION 



PRODUCT IDs 



AC T716A-riC 



PRODUCT TITLE: 



C2TSAA0 TSU05 DIAG PART X 



DEPARTMENT: 



COMPUTER SPECIAL SYSTEMS/PPG 



DATE: 



JUNE 03. 1983 



T»€ INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

NO RESPONSIBILITY IS ASSUMED FOR T»C USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL UR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION 



THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 

DIGITAL POP UNIBUS MASSBUS 

DEC DECUS DEC TAPE 
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1.0 HENERAL INFORMATION 

1.1 PftOGRAn ABSTRACT 

THIS IS A POP-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
OF A TS005 HAGTAPE SUBSYSTEH UHILE COMCCTED TO A P0P-11//25 SYSTEM 
(UNIBUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
ELEVEN TEST UHICH ARE EXECUTED IN SEQUENCE. 



THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP*. ACT. APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES. REFER 
TO THE XXOP* USERS MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

PDP-11 PROCESSOR AND MEMORY 

CAUTION: DIAGNOSTIC REQUIRES S2K WORDS OF MEMORY 

(20K USEABLE I.E. 4K FOR I/O PAGE) 

TSU05 MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 

CONSOLE TERMINAL 
PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
POP-11 DIAGNOSTIC LOADER/MONITOR (XXDPO 



1.3 RELATED DOCUMENTS AND STANDARDS 
DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 

1. CHQUS XXDP* USERS GUIDE i DOCUMENT NUMBER AC-FS48E-MC 
DATE: 14 JULY 1980. 

2. TSUOS TRANSPORT SUBSYSTEM USER'S GUIOEt DOCUMENT NUMBER EK-TSUOS-UG-OOl 
DATE: AUGUST 1963 

3. TSUOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL: DOCUMENT NUMBER EK-TSU05-TM-001 
DATE: AUGUST 1983 

4. TSUOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL: DOCUMENT NUMBER EK-TSU05 IN-OOl 
DATE: AUGUST 1983 



1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

FUNCTIONAL PDP-11 CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGNOSTIC LOADER /MONITOR (XXDPO 
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1.5 ASSUnPTIONS 

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

THE TAPE BEING USED ON THE TS05 TRANSPORT IS A KNOWN GOOD REEL 
or TAPE. 

2.0 OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION. REFER TO THE XXDP* USER'S MANUAL (CHQUS). 

2.1 COMMANDS 

THERE ARE ELEVEN LEGAL COMMANDS FQR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP* USER'S MANUAL HAS MORE DETAILS. 



COMMAND EFFECT 



START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP* MONITOR (XXDP» OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 

CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UN^'T 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 

8Y THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS aSAR ALL FLAGS (SEE SECTION 2.3) 



A COrtlAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE. TYPE "STA" INSTEAD OF "START". 

2.1.1 OPERATOR COMMANDS 



THE TSU05 DIAGNOSTIC IS A POP- 11 DIAGNOSTIC SUPERVISOR COMPATIBLE 

PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IK THE 

CHQUS XXDP* USERS GUIDE. DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES. 



BOOT THE DIAGNOSTIC MEDIA 



.R VTSA?? 

01 AG. nUN-TIME SERVICES REV D. APR 79 
CZTSA-A-0 

**«*TSU05 LOGIC DIAGNOSTIC**** 
UNIT IS TSU05 
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>0R 

2.2 SWITCHES 

THERE ARE SEVERAL SWITCHES UHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 
IN THE DESCRIPTIONS BELOW. A DECIMAL NUMBER IS DESIGNAT' 0 BY "DOOOO". 

SWITCH EFFECT 



/TESTS: LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS. FOR EXAMPLE - /TESTS:t:5:7-10. 
THIS LIST WILL CAUSE TESTS 1.5.7.8.9.10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 

/PASS:DOODD EXECUTE 00000 PASSES (DOOOO - 1 TO 64000) 

/FLAGS :FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 

/EOP: DOOOO REPORT END OF PASS MESSAGE AFTER EVERY 

DOOOO PASSES OM.Y. (DOOOO - 1 TO 64000) 

/UNITS: LIST TEST/AOD/DROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE - /UNITS:0:5: 10-12 
USE UNITS 0.5.10.11.12 (UNIT NUMBERS - 0-63) 

EXAMPLE OF SWITCH USAGE: 

START/TESTS: 1 -5/PASS : lOOO/EOP ; 100 

THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED. 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY. 
FOR EXAMPLE. TYPE -/TES:l-5- INSTEAD OF -/TESTS:l-5". 

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 

TESTS PASS FLAGS EOP UNITS 

START XX XX X 

RESTART XX XX X 

CONTINUE X XX 

PROCEED X 

DROP X 

ADD X 

PRINT 

DISPLAY X 

FLAGS 

ZFLAGS 

EXIT 

2.3 FLAGS 

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
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CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE 2FLAGS COMMAND MAT ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS. 
NO COMMANDS AFFECT THE STATE OF THE FLAGS i THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 



FLAG EFFECT 



HOE HALT ON ERROR - CONTROL IS RETURNED TO 

RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

lER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 

FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE. NUMBER. PC. TEST AND UNIT) 

IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 

CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE -BELL- ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICW. REPORTS (DOES NOT 

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 

STATISTICAL REPORTING) 
lOR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTOOROP CODE 

LOT LOOP ON TEST 



*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 



SEE THE XXDP* USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR. INHIBIT ERROR REPORTS 
AND TYPE A "BELL" ON ERROR. YOU MAY USE THE FOLLOWING STRING: 

/FLAGS : LOE :IER: BOE 



2.4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED. THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) ?" 
YOU MUST ANSWER "Y" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN "PRELOADED" USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XXDP* USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A "Y". THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). 

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR). THE PROGRAM WILL ISSUE THE "CHANGE HW?" QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 

ON A "N" (NO) RESPONSE TO THE "CHANGE HW?" QUESTION. THE DIAGNOSTIC WILL 
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RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 
TSBA/TSOB - 172520. VECTOR - 224 



ON A "Y" (YES) RESPONSE TO THE QUESTION. THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE. IF PRESENT. LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(0)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN "(0)" INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN "CD" INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 
"V" FOR YES, "N" FOR NO. 

• UNITS (D) ? CENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTEO> 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 

TSBA/TSD6 REGISTER> 

VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 

VECTOR> 

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE UNITS?" QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER. BEGI>MING AT 0. UP ^0 FOUR UNIT<; CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSU05 CONTROLLERS PER POP -II AND UP TO 2 DRIVES PER CONTROLLER 

2.5 SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 

OR CONTINUE COMMAND. THE RUNTIME SERVICES .JILL ASK FOR SOFTWARE 

PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 

OPERATION MOOES. YOU WILL BE PROMPTED BY "CHANGE SW (L) ?" 

IF YOU WISH TO CHANGE ANY PARAMETERS. ANSWER BY TYPING 

"Y". THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPKS). 

THE FOLLOWING QUESTIONS ARE ASKED ON A START. RESTART. OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAV THE PROGRAM BEHAVES. 

CHANGE SW (L) ? <TYPE Y TO CAUSE THE FXLOWING 
QUESTIONS TO BE ASKED> 

INHIBIT ITERATIONS (L) N ? <TYPE "Y" TO PREVENT MULTIPLE 

ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 

2.6 EXTENDED P-TABLE DIALOGUE 
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WHEN YOU ANSUER THE HARDWARE QUESTIONS. YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 
A MASS STORAGE CONTROLLER WITH SEVERAL DRIV..S OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 

TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 
A DEVICE. THE XYll. SUPPOSE THIS DEVICE CONSISTS OF 
A CONTROL MODULE WITH EIGHT UNITS (SUB -DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XYlI WITH EIGHT UNITS. 

♦ UNITS (0) ? 8<CR> 

UNIT I 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE • (0) ? 0<CR> 
Q-FACTOR (0) 0 ? I<CR> 

UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE • (0) ? 1<CR> 
Q-FACTOR (0) I ? 0<CR> 

UNIT 5 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE • (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE 9 (0) ? 3<CR> 
Q-FACTOR (0) 0 ? «CR> 

UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE « (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE 9 (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE « (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 

UNIT 8 

CSR ADDRESS (0) 160000<CR> 

SUB-DEVICE ♦ CO) ? 7<CR> 
Q-FACTOR CO) 1 ? <CR> 
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NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 

AS YOU CAN SEE FROM THE ABOVE EXAMPLE. THE HARDWARE PARAMETERS 

00 NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 

NOT VERY EFFICIENT. 

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE. 

« UNITS CD) ? 8<CR> 
UNIT I 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE • (0) ? 0.1<CR> 
Q-FACTOR (0) 0 ? 1.0<CR> 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ♦ (0) ? 2-5<CR> 
Q-FACTOR (0) 0 ? 0<CR> 

UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE • (0) ? 6.7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 

AS YOU CAN SEE IN THE ABOVE DIALOGUE. THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS. TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS. FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB -DEVICES WERE SPECIFIED. THE 
"-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE. SUB -DEVICES 
2. 3. 4 AND 5 WERE SPECIFIED. (IF THE SUB -DEVICE WERE SPECIFIED 
BY ADDRESSES. THE INCREMENT WOU.0 BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 

» UNITS CD) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000 <CR> 
SUB-DEVICE » (0) ? 0-7<CR> 
Q-FACTOR (0) 0 ? 0. 1,0. . . . 1 . 1<CR> 

AS YOU CAN SEE FROM THIS EXAMPLE. NULL REPLIES (COMMAS ENCLOSING 



USER OOCUMENTATION 



MACRO mil3 07-FEB-84 10:58 



Kl 



SEQ 010 



A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 
2.7 QUICK START-UP PROCEDURE (XXDPO 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP* 



2. TYPE "R NA^E". WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 

3. TYPE "START" 

4. ANSWER THE "CHANGE HW" QUESTION WITH "Y" 

5. ANSWER ALL THE HARDWARE QUESTIONS 

6. ANSWER THE "CHANGE SW" QUESTION WITH "N" 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL. BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE "lER" FLAG IS SET (SECTION 
THE GENERAL ERROR MESSAGE IS OF THE FORM: 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 

. WHERE s NAME - DIAGNOSTIC NAME 

TYPE " ERROR TYPE (SYS FATAL. OEV FATAL. HARD OR SOFT) 
NUMBER - ERROR NUMBER 

UNIT NUMBER - 0 - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER - TEST AND SUBTEST WHERE ERR(») OCCURRED 
PC:XXXXXX - ADDRESS OF ERROR MESSAGE CALL 

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "lER" OR "IBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PPINTED UNLESS THE "lER". "IBR" OR "IXE" FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 

BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROP MESSAGE REPRESENTS DIFFERENT TYPES 
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OF ERRORS DETECTED BY THIS DIAGNOSTIC. 

ERROR MESSAGE EXAMPLE 1 

THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 
TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 
INCORRECT REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 
DATA. 



TST: 016 FIFO EXERCISER TEST 

CZTSA HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS CIN UORD 9) INCORRECT AFTER WRITE FIFO 

TAPE BUS SIGNALS IN WORD «8: - DESIGNATOR <BIT »> 
PARERR<15> lEOT <12> IFMK <9> IRDY<6> IRW0<2> 
IRESV2<14> IIDENT<11> IHER <8> I0NL<5> IFBY<1> 
IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<0> 

TAPE BUS SIGINALS IN UORD «9: 
0ATMIS<7> ILW<6> 0UTRDY<5> INRDY<4> 
MESSAGE BUFFER ADDRESS - 047352 
MESSAGE BUFFER CONTENTS: 
UORD «0 EXPD: 100020 RECV: 

RECV: 
RECV; 
RECV: 



UORD «1 EXPD: 
UORD «2 EXPD: 
UORD «3 EXPD: 
UORD #4 EXPD: 
UORD «5 EXPD: 
UORD «6 EXPO: 
UORD 97 EXPD: 
UORD «8 EXPO: 



000012 
000000 
000010 
000000 
000000 
000000 
000000 
070217 



UORD 49 EXPD: 000074 



100020 
000012 
000000 
000010 
RECV: 000000 
RECV: 000000 
RECV: 000000 
RECV: 000000 
RECV: 070217 
RECV: 000034 



XOR: 000000 
XOR: 000000 
XOR: 000000 
000000 
000000 
XOR: 000000 
XOR: 000000 
XOR: 000000 
XOR: 000000 
XOR: 000040 



XOR: 
XOR: 



ERROR MESSAGE EXAMPLE 2 

THIS ERROR SHOUS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE. IN THIS 
INSTANCE A UNRECOVERABLE ERROR OCCURED UHICH INDICATES THAT THE CONTROLLER 
MAY BE DEFECTIVE. 

CZTSA HRO ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR - 100214 

TSSR BITS SET: SC.SSR 

TERMINATION CLASS CODE - UNRECOVERABLE ERROR 

PACKET ADDRESS - 026420 

PACKET WORD « - 140010 

PACKET WORD 9 - 000010 

PACKET UORD • - 000000 

PACKET UORD • - 000024 



ERROR MESSAGE EXAMPLE 3 
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THIS ERROR SHOWS THAT THE MOTION BIT 010 NOT GET SET WHILE OOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 

CVTS HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT CXSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPO: 000312 RECV: 000112 XOR: 000200 

4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS. THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE "EOP" SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 

SUCCESSFUL RUN EXAMPLE C POP- 11) 

DR>STA/FLA:PNT:HOE 
UNITS CD) ? 1 
UNIT 0 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR CO) 224 ? <CR> 
CHANGE SW (L) ? N<CR> 

THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
SWITCHES ON WHICH ARE "PRINT FACH TEST NBR AS EXECUTED" AND "HALT ON 
ERROR". 

TST: 001 INITIALIZE *1 

TST: 002 WRAP DATA HIGH BYTE TEST 

TST: 003 WRAP DATA LOW BYTE TEST 

TST: 004 RAM TEST 

TST: 005 INITIALIZE 2 TEST 

TST: 006 COMMAND REJECT TEST 

TST: 007 WRITE CHARACTREISTICS TEST 

TST: 008 VOLUME CHECK 

TST: 009 COMPLETION INTERRUPT TEST 

TST: 010 BASIC PACKET PROTOCOL TEST 

TST: Oil NON-TAPE -MOTION COMMANDS TEST 

0 ERRORS 

NOTE: THE DIAGNOSTIC WILL RUN CONTINUOSLY UNLESS A PASS NUMBER LIMIT HAS BEEN 
SPECIFIED WITH THE "/PASS:" SWITCH. 

PROGRAM RUN TIMES 

THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAC DONE ON A PDP-11 
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SEQ 013 



PROCESSOR WITH A LA34 CONSOLE. 

THE PROGRAM RUNS IN TWO MOOES: NO ITERATIONS AND DEFAULT MODE, IN THE 
NO ITERATIONS MODE. EACH TEST IS RUN ONCE. WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A "Y" (YES). 



TEST 


N/I 


ITER 


DEF 


NUMBER 


SECS. 


SECS 


SECS. 


1 


1 


30 


29 


2 


1 


10 


9 


3 


1 


6 


7 


4 


25 


120 


95 


5 


5 


140 


135 


6 


25 


475 


450 


7 


20 


20 


0 


6 


1 


10 


9 


9 


20 


20 


0 


10 


1 


2 


1 


11 


6 


11 


3 



THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 12 IN ONE COMMANT- 

Q.V. 1 MIN 57 SECONDS 

DEFAULT 12 MINS 



5.0 DEVICE INFORMATION TABLES 

WHENEVER THE PROGRAM IS STARTED. VIA THE STA(RT) COMMAND. 
THE SUPERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER 
CHANGES: 

CHANGE HU (L) ? 

# UNITS CD) ? <ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED > 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 

TSBA/TSDB REGISTER > 

VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 

VECTOR> 

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE "« UNITS?" QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER. BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 



IN ADDITION. ON A START. RESTART OR CONTINUE THE SUPERVISOR 
REQUESTS CHANGES TO THE SOFTWARE OPERATING PARAMETERS. AS 
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FOLLOWS: 

CHANGE SU (L) ? 

INHIBIT ITERATIONS (L) N 7 



6.0 TEST SUMHARIES 

TEST 1: BUS RESET TEST 

THIS TEST VERIFIES THAT THE n7455 HOOULE'S DEVICE REGISTERS ARE 
ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE 
BUILT-IN INITIALIZATION SELF -TEST HICROOIAGNOSTIC DID NOT FIND 
ANY BASIC PROBLEMS IN THE MODULE. AREAS OF LKZC TESTED BY THE 
SELF -TEST SEQUENCE ARE AS FXLOUSi ROM AND PIPELINE REGISTER. 
SEQUENCER, INTERNAL BUSES. 2901 MICROPROCESSOR. AND. RAM. THIS 
TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL 
VIA A RESET INSTRUCTION. OR BY URITING INTO THE TSSR REGISTER. 
WAITS A PERira OF TIME (TO ALLOW THE CONTROLLER'S INITIALIZATION 
HICROOIAGNOSTIC SEQUENCE TO BE COMPLETED). AND THEN CHECKS THE 
CONTENTS OF THE TSSR REGISTER. SUCCESSFUL INITIALIZATION IS 
INDICATED BY SUBSYSTEM READY (SSR) AND NEED BUFFER ADDRESS (NBA) 
BITS BEING SET (1) AND ALL OTICR BITS (EXCEPT A17 AND A16 AND 
OFL. WHICH ARE IGNORED FOR THIS TEST) BEING aEAR (0). IF THE 
CONTENTS OF TSSR ARE NOT AS EXPECTED. AN ERROR REPORT IS ISSUED 
LISTING THE EXPECTED DATA. ACTUAL DATA. AND THE DISCREPANCIES. 
T»C ERROR REPORT ANALYZES THE TSSR CONTENTS AND DISCERNS AND 
REPORTS ONE OF THREE POSSIBILITIES: 



1. TSSR CONTENTS ARE AMBIGUOUS (ANY OF BITS 11-14 ARE SET. 
OR STATES OF SSR AND SC BITS DO NOT CORRESPOND TO T»C 
APPMENT ERROR CODE IN BITS 0-S)i INDICATES THAT T»C 
TSSR CONTENT CANNOT BE TRUSTED. INDICATES A 
CATASTROPHIC CONTROLLER MALFUNCTION. THIS IS A FATAL 
ERROR (EXECUTION IS ««ORTED). FIELD ACTION WOULD BE TO 
REPLACE THE M74SS. IF THE M7455 ITSELF IS BEING 
DEBUGGED. THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON 
ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM. 

2. SSR - 0. SC - 0 AND THE ERROR CODE IN BITS 0-5 IS IN 
THE RANGE 17-13: THIS IS A FATAL ERROR. THE ERROR 
CODE IS DECODED AND THE APPROPRIATE DESCRIPTION GIVEN. 
INDICATES THAT A SERIOUS PROBLEM EXISTS. 



TEST 2: WRAP DATA - HIGH BYTE 

THIS TEST VERIFIES OPERATION OF: 



1. PART OF THE POP -11 BUS INTERFACE SECTION OF THE M7455 
MODULE: PART OF THE INPUT FILE ( TSOC HIGH BYTE). PART 
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OF THE OUTPUT FILE (TSSR HIGH BYTE AND TSBA. BOTH 
BYTES). PART OF THE 0C005 TRANSCEIVER CIRCUITS (ADDRESS 
DECODER. BDAL DRIVERS. HIGH BYTE OF INTERNAL OAL BUS 
DRIVERS). AND BASIC PROGRAMMED I/O CONTROL SEQUENCES 
AND LOGIC I 

2. PART OF 2901 MICROPROCESSOR ELEMENTS (Q -REGISTER. 
REGISTER 0. ROTATE AND NEGATE FUNCTIONS 

3. Y AND SOURCE BUSES i 

4. BASIC MICROPROGRAM SEQUENCES. 



THE PROGRAM URITES A TEST DATA BYTE INTO THE HIGH BYTE OF TSOB. 
WAITS FOR THE SSR BIT IN TSSR TO SET. THEN CHECKS THE CONTENTS 
OF BOTH TSBA AND TSSR. THE MODULE IS FUNCTIONING CORRECTLY IF 
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT 
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS 
8 AND 9. WHICH SHOULD CONTAIN BITS 6 AND 9 OF THE DATA PATTERN 
WRITTEN. AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN 
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED. THE ANALYSIS 
LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED 
ABOVE. THE TEST IS REPEATED FOR ALL CQteiNATIONS OF TEST DATA 
BYTES (0-377 OCTAL). 

TEST 3: WRAP DATA - LOW BYTE 

THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME 
ELEMENTS TESTED IN TEST 2. AND ADDITIONALLY VERIFIES: 



1. LOW BYTE OF THE TSOB INPUT FILE REGISTER. 

2. LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DC005 
TRANSCEIVER CIRCUITS. 

3. BASIC FUNCTIONING OF PARTS OF THE RAM. 



THE PROGRAM WRITES A TEST DATA BYTE INTO THE LOW BYTE OF TSOB. 
WAITS FOR THE SSR BIT IN TSSR TO SET. THEN CHECKS THE CONTENTS 
OF BOTH TSBA AND TSSR. THE MODULE IS FUNCTIONING CORRECTLY IF 
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT 
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS 
8 AND 9. WHICH SHOULD CONTAIN BITS 6 AND 9 OF THE DATA PATTERN 
WRITTEN. AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN 
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED. THE ANALYSIS 
LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED 
ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA 
BYTES (0-377 OCTAL). 



TEST 4: RAM TEST 
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SEQ 016 



THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE M7455 
CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS. AND THAT 
EACH RAH LOCATION IS UNIQUELY ADDRESSED (I.E.. THAT ONE AND ONLY 
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). THE 
BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN 
THE 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN 
ADO. 



TEST 5: SECONU INITIALIZATION TEST 

THIS TEST VERIFIES THE SAME ELEMENTS AS DID INITIALIZATION TEST 
•1 AND ALSO CHECKS THAT CERTAIN PARTS OF RAM IS CLEARED TO ZERO 
AND THAT 2901 REGISTERS 10 AND 11 ARE ALSO CLEARED TO ZERO. 
THIS IS A CONFIDENCE CHECK OF A PART OF THE SELF -TEST SEQUENCE 
(I.E.. THAT IT IS REALLY BEING EXECUTED). FOR EACH OF TWO 
SUBTESTS (ONE FOR INITIALIZING VIA A BUS INIT. THE OTHER FOR 
INITIALIZING BY URITING INTO THE TSSR). THE FOLLOWING SEQUENCE 
IS PERFORMED: 



1. EACH RAM LXATION AND 2901 REGISTERS 10 AND 11 ARE SET 
TO ALL I'S BY USING URITES INTO THE TS06 REGISTER (LOU 
BYTE AND MAINTENANCE MODE WORD URITES). 

2. THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON 
THE TSSR DESCRIBED IN INITIALIZATION TEST «1 ARE 
PERFORMED. 

3. •VS (377 OCTAL) ARE URITTEN INTO THE LOW BYTE OF TSOB. 
UHICH SHOULD CAUSE RAM LOCATION 0 TO BE URITTEN TO ALL 
I'S SINCE 2901 REGISTERS 10 AND 11. SPECIFYING THE RAM 
ADDRESS. SHOULD BE 0. RAM LOCATION 0 IS VERIFIED BY 
URITING A WORD OF ZEROS INTO THE TSOB. THE RESULTING 
LOW BYTE OF TS8A SHOULD CONTAIN ALL I'S. 

4. THE ENTIRE RAM IS SCAMCD. LOCATION 0 SHOULD CONTAIN 
ALL I'S AND THE REMAINING LOCATIONS. EXCEPT FOR THE 
MESSAGE BUFFER IMAGE AREA. SHOULD CONTAIN 0. 
DISCREPANCIES ARE REPORTED. AN ERROR AT THIS POINT IS 
HOST LIKELY DUE TO A ROH. PIPELINE OR SEQUENCER PROBLEM 
OR A TIMING PROBLEM. 



TEST 6: COMMAND REJECT 

THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE 
CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADDRESS 
(NBA) BIT BEING SET IN TSSR. AND THAT THE TSBA AND TSSR 
REGISTERS ARE LEFT IN THE PROPER STATE AFTER EACH COMMAND IS 
REJECTED. THIS TEST CHECKS MICROPROCESSOR SEQUENCING. BASIC 
COMMAND DECODING AND DATI DMA HANDLING. THIS TEST CONTAINS TWO 
SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS (OTHER 
THAN WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT 
CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 
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REJECTED COMMANOi SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT 
SETS THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN 
INTERRUPT IS GENERATED UHEN THE COMMAND IS REJECTED. 

TEST 7: URITE CHARACTERISTICS 

THIS TEST VERIFIES BASIC OPERATION OF THE URITE CHARACTERISTICS 
COMMAND. IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS 
DATA BLOCK ARE FETCHED PRO»»ERLY FROM CPU MEMORY. THE NEED BUFFER 
ADDRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY. AND THAT A PROPER 
MESSAGE PACKET IS STORED. UHERE APPROPRIATE. THIS TEST DOES NOT 
CHECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE 
DATA BITS OPERATE PROPERLY t THE FUNCTIONING OF THESE BITS IS 
VERIFIED IN SUBSEQUENT TESTS. ALL COMMANDS EXECUTED IN THIS 
TEST HAVE THE INTERRUPT ENABLE (IE) BIT CLEARED TO ZERO, SO NO 
INTERRUPTS SHOULD BE GENERATED. HOUEVER. THE PROGRAM RUNS AT 
PROCESSOR PRIORITY 0. WITH THE INTERRUPT SERVICE ROUTINE SET UP 
TO FLAG UNEXPECTED INTERRUPTS. IF AN INTERRUPT OCCURS, A 
PROBLEM EXISTS IN EITHER THE PDP-11 BUS INTERFACE SECTION OR IN 
THE ROM OR PIPELINE. 

TEST 8: VOLUME CHECK 

THIS TEST VERIFIES THAT THE VOLUME CHECK (VCK) BIT, A FLAG HELD 
WITHIN THE M74S5 AND APPEARING IN XSTO. IS SET BY INITIALIZE AND 
CLEARED BY EXECUTING A URITE CHARACTERISTICS COMMAND UITH THE 
CVC BIT SET. IT IS ALSO VERIFIED THAT A URITE CHARACTERISTICS 
COMMAND UITH THE CVC BIT CLEAR DOES NOT AFFECT THE STATE OF THE 
VOLUME CHECK BIT. THE ACTUAL FUNCTION OF VOLUME CHECK, THAT OF 
PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENDING UPON 
UHETHER VOLUME CHECK IS SET OR CLEAR. IS NOT CHECKED BY THIS 
TEST I THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF 
TAPE MOTION COMMANDS. 

TEST 9: COMPLETION INTERRUPT 

THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE 
COMPLETION OF THE URITE CHARACTERISTICS COMMAND IF THE INTERRUPT 
ENABLE (IE) BIT IN THE COMMAND HEADER WORD IS SET. THIS TEST 
CHECKS THE FUNCTIONING OF THE INTERRUPT LXIC AND BASIC 
PROCESSING OF THE IE BIT. 

THE SEQUENCES OF TEST 7 ARE REPEATED. EXCEPT THAT THE INTERRUPT 
SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE 
CHARACTERISTICS COMMAND IS ISSUED UITH THE IE BIT SET (I). IT 
IS VERIFIED. WHERE APPROPRIATE. THAT THE IE STATUS BIT IN XSTO 
OF ANY MESSAGE PACKET IS SET AND THAT A COMPLETION INTERRUPT IS 
GENERATED. FINALLY, A SEQUENCE OF TWO COMMANDS ARE ISSUED. THE 
FIRST UITH IE-1 AND THE SECOND WITH lE-O. IT IS VERIFIED THAT 
NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND AND THAT THE 
IE BIT IN XSTO IS 0. 



TEST 10: BASIC PACKET PROTOCOL 

THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE 
COMMAND. THE FUNCTION OF THE ACK BIT IN THE COMMAND HEADER WORD. 
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AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC. 



TEST 11: NON-TAPE MOTION COMMANDS 

THIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE 
COMMAND. TWO SUBTESTS ARE USED. THE FIRST VERIFIES THAT 
THE COMMAND RUNS TO COMPLETION AND STORES A VALID 
MESSAGE PACKET. THE SECOND VERIFIES THAT NON-ZERO 
VALUES IN THE COMMAND MODE FIF.LD CAUSES COMMAND REJECT. 

7.0 MAINTENANCE HISTORY 



REVISION A - MARCH 1962 



SEQ 016 
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2 
S 
4 

5 000000 
6 
12 

IS 000000 

14 

15 

21 

22 002000' 
23 

24 002000 
002000 

25 
26 
27 
28 
29 
30 
31 

32 002000 

33 002000 
002000 

002000 103 

002001 132 

002002 124 

002003 123 

002004 101 

002005 000 

002006 000 

002007 000 
002010 

002010 101 
002011 

002011 060 
002012 

002012 000000 
002014 

002014 001217 
002016 

002016 045444' 
002020 

002020 045576' 
002022 

002022 002154' 
002024 

002024 002164' 
002026 

002026 045672* 
002030 

002030 000000 
002032 

002032 000000 
002034 

002034 000000 
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.TITLE TSV2 PROGRAM HEADER 
.SBTTL PROGRAM HEADER 
.PSECT ABS 

.MCALL SVC 

SVC I INITIALIZE SUPERVISOR MACROS 

.ENABLE LC 
.NLIST 6EX.CN0 
.ENABL AMA 
, - . ^2000 
; .-2000 

BGNNOO TSV2 

TSV2! : 

I THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 

! - - 



POINTER BGNSU.BGNSFT .BGNAU.BGNDU.BGNRPT 
HEADER CZTSA.A.0.655..0 
L*NAME:: iDIAGNOSTIC NAME 

.ASCII /C/ 
.ASCII /Z/ 





.ASCII 


/T/ 






.ASCII 


/s/ 






.ASCII 


/A/ 






• BYTE 


0 






.BYTE 


0 






.BYTE 


0 




LIREV:: 


.ASCII 


/A/ 


1 REVISION LEVEL 


LIOEPO: 


• 

'.ASCII 


/o/ 


;0 


LIUNIT: 


• 

'.UORO 


0 


(NUMBER OF UNITS 


LITIML: 


'.UORD 


655. 


(LONGEST TEST TIME 


LIHPCP: 


'.WORD 


LtHARD 


(POINTER TO H.U. QUES. 


LISPCP: 


'.UORO 


LISOFT 


(POINTER TO S.U. QUES. 


LIHPTP: 


• 

'.UORD 


LIHU 


(PTR. TO OEF. H.U. PTABLE 


LISPTP: 


'.UORD 


L«SU 


(PTR. TO S.U. PTABLE 


LILAOP: 


'.UORD 


LtLAST 


(DIAG. END ADDRESS 


LtSTA:: 


.UORD 


0 


(RESERVED FOR APT STATS 


LtCO: : 


.UORD 


0 




LIDTYP: 


' .UORD 


0 


(DIAGNOSTIC TYPE 
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002036 




LtAPT: : 




002056 


000000 




.WORD 


002040 




LtDTP: : 




002040 


002124' 




.UORO 


002042 




LtPRIO: 




002042 


000000 




' .WORD 


002044 




L»ENVI: 




002044 


000000 




'.WORD 


002046 




LtEXPL: 




002046 


000000 




'.WORD 


002050 




LtMREV: 




002050 


003 




'.BYTE 


0C2051 


003 




.BYTE 


002052 




LIEF:: 




002052 


000000 




.WORD 


002054 


000000 




.WORD 


002056 




LtSPC:: 




002056 


000000 




.WORD 


002060 




L IDE VP: 


: 


002060 


003400' 




.UORO 


002062 




LtREPP: 


• 


002062 


022434' 




.UORO 


002064 




LtEXP4: 


• 


002064 


000000 




'.UORO 


002066 




LtEXP5: 


• 
• 


002066 


000000 




.UORO 


002070 




LtAUT:: 




002070 


022122' 




.UORO 


002072 




LtDUT:: 




002072 


022220' 




.UORO 


002074 




LtLUN: : 




002074 


000000 




.UORO 


002076 




LtDESP: 


S 


002076 


003406' 




.UORO 


002100 




LtLOAD: 


• 


002100 


104035 




EMT 


002102 




LIETP:: 




002102 


000000 




.UORO 


002104 




LtlCP:: 




002104 


021326' 




.UORO 


002106 




LtCCP:: 




002106 


022406' 




.UORO 


002110 




LtACP: : 




002110 


022326' 




.UORO 


002112 




LIPRT:: 




002112 


021316' 




.UORO 


002114 




LITEST: 




002114 


000000 




'.UORO 


002116 




LIOLY:: 




002116 


000000 




.UORO 


002120 




LIHZME: 


• 


C02120 


000000 




'.UORO 



34 
35 
36 

37 .SBTTL 
38 
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I APT EXPANSION 

0 

iPTR. TO DISPATCH TABLE 
L IDISPATCH 

iDIAGNOSTIC RUN PRIORITY 

0 

t FLAGS DESCRIBE HOW IT WAS SETUP 

0 

•EXPANSION UORO 

0 

iSVC REV AND EDIT « 
CIREVISION 
CIEDIT 

tOIAG. EVENT FLAGS 

0 
0 

0 

I POINTER TO DEVICE TYPE LIST 

LIDVTYP 

iPTR. TO REPORT CODE 

LIRPT 

0 

0 

iPTR. TO ADD UNIT CODE 

LIAU 

iPTR. TO DROP UNIT CODE 

LIDU 

iLUN FOR EXERCISERS TO FILL 

0 

{POINTER TO DIAG. DESCRIPTION 

LIOESC 

•GENERATE SPECIAL AUTOLOAD EMT 

EILOAO 

(POINTER TO ERRTBL 

a 

iPTR. TO INIT CODE 

LIZNIT 

iPTR. TO CLEAN-UP CODE 

LICLEAN 

iPTR. TO AUTO CODE 

LI AUTO 

iPTR. TO PROTECT TABLE 

LIPROT 

(TEST NUMBER 

0 

I DELAY COUNT 

0 

iPTR. TO HIGH MEM 

0 



DISPATCH TABLE 



TSV2 PROGRAM HEADER 
DISPATCH TABLE 

39 
40 
41 
42 
43 

44 002122 

002122 000013 
002124 

002124 023216' 
002126 023436' 
002130 024134' 
002132 024626' 
002134 026162' 
002136 027266' 
002140 0S0S44' 
002142 034132' 
002144 035036' 
002146 040162' 
002150 043274' 

45 
46 
47 
48 
49 
50 
51 
52 
53 
54 

55 002152 
002152 000003 
002154 
002154 

56 

57 002154 172520 

56 002156 000224 

59 002160 000200 

60 002162 
002162 

61 
62 
63 
64 
65 
66 
67 
68 

69 002162 

002162 000004 

002164 

002164 

70 

71 002164 000000 

72 002166 000000 
73 

74 

75 002170 000017 
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t 

I THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 

I IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 

i 

DISPATCH 11 
.WORD 11 
i SDISPATCH:: 

.UORD Tl 
.WORD T2 
.WORD T3 
.WORD T4 
.WORD T5 
.WORD T6 
.VIORD T7 
.WORD T8 
.WORD T9 
.WORD TIO 
.WORD Til 



.SBTTL DEFAULT HARDWARE P- TABLE 



t THE DEFAULT HARDWARE P- TABLE CONTAINS DEFAULT VALUES OF 
t THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
s IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 

t - - 



LIHW:: 
OFPTBL:: 



BGNHW DFPTBL 
.WORD L10000-L«HW/2 



{DEFAULT HARD -P-TABLE 



L 10000: 



.WORD 172520 

.WORD 224 

.WORD PRI04 
ENOHU 



t IS^ (OF 2) REGISTERS. 
5 INTERRUPT VECTOR 
I INTERRUPT PRIORITY. 



.SBTTL SOFTWARE P-TABLE 



! THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
i PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



i - - 

LISW:: 
SFPTBL! 



BGNSW SFPTBL 

.WORD L10001-L»SW/2 



TRANSTST: : 
NOITS: : 



LERRMAX: : 



.WORD 0 
.WORD 0 



.WORD 15. 



i ENABLE TEST OF TRANSPORTCS) IF 

i INHIBIT ITERATION OPTICA. 

I ... 0 • ITERATE. 

I ...HZ ' INHIBIT ITERATE. 

i LOCAL (PER TEST) ERROR LIMIT 



J2 



TSV2 - PROGRAM HEADER 
SOFTUARE P- TABLE 



76 002172 

77 002174 
002174 

78 

79 002174 

80 

81 

84 

85 
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SEQ 022 



LlOOOl: 



ENOSU 



ENOHOD 



.UORO 200. 



J GLOBAL (PER UNIT) ERROR LIMIT 



TSV3 - GLOBAL AREAS 
SOFTWARE P TABLE 

7 

8 
13 
19 

20 002174 
002174 

21 
22 
23 
24 
25 
26 
27 
28 
29 

33 002174 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000040 
000037 
000036 
000035 
000034 
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SEQ 023 



.TITLE TSV3 - GLOBAL AREAS 
.SBTTL GLOBAL EQUATES SECTION 



TSV3: 



BGNMOD TSV3 



.SBTTL GLOBAL EQUATES SECTION 



I THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
i ARE USED IN HORE THAN ONE TEST. 



EQUALS 
I BIT DIFINITIONS 



; GET STANDARD EQUATES. 



BIT15 
BIT14 
BIT13 
BIT12 
BITll 
BITIO 
BIT09 
BIT06 
BIT07 
BIT06 
BIT05 
BIT04 
BIT03 
BIT02 
BITOl 
BITOO 

BIT9- 
Blie- 
BIT7- 
BIT6- 
BIT5- 
BIT4- 
BIT3- 
BIT2- 
BITl- 
BITO- 



100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 

BIT09 
BITOa 
BIT07 
BIT06 
BIT05 
BIT04 
BIT03 
BIT02 
BITOl 
BITOO 



EVENT FLAG DEFINITIONS 

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



i 
( 

EF, START-- 32. 
EF. RESTART ■■ 31. 
EF. CONTINUE-- SO. 
EF.NEU-- 29. 
EF.PWR-- 28. 
> 
i 



START COMMAND WAS ISSUED 
RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS ISSUED 
A NEW PASS HAS BEEN STARTED 
A POWER -FAIL/POWER -UP OCCURRED 



TSV3 GLOBAL AREAS 
GLOBAL EQUATES SECTION 



000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
OlOOOC 
020000 
040000 
100000 

34 

35 002174 



000250 

177572 
177574 
177576 
172516 



L2 
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I PRIORITY LEVEL DEFINITIONS 



PRI07-- 


340 


PRI06-- 


300 


PRI05" 


240 


PRI04-- 


200 


PRI03-- 


140 


PRI02-- 


100 


PRIOl" 


40 


PRIOO" 


0 


t OPERATOR FLAG 


EVL»" 


4 


LOT" 


10 


ADR-" 


20 


IDU" 


40 


ISR-- 


100 


UAn>- 


200 


BOE-- 


400 


PNT-- 


1000 


PRI" 


2000 


IXE-- 


4000 


IBE"- 


10000 


IER-- 


20000 


LOE" 


40000 


HOE" 


100000 



KTll 

•SBTTL MEHORY HANAGEHENT DEFINITIONS 
t*KTll VECTOR ADDRESS 
MMVEC- 250 

t*KTll STATUS REGISTER ADDRESSES 
SRO- 177572 
SRI- 177574 
SR2- 177576 
SR3- 172516 
IF NB 

i*USER "I" PAGE DESCRIPTOR REGISTERS 

UIPDRO- 177600 

UIPORl- 177602 

UIPDR2- 177604 

UIPDR3- 177606 

UIPDR4- 177610 

UIPORS- 177612 

UIP0R6- 177614 

UIP0R7- 177616 

.IF re 

(•USER "0" PAGE DESCRIPTOR REGISTORS 

UOPDRO- 177620 

UOPDRl- 177622 

U0PDR2- 177624 

UDPDR3- 177626 

UDPDR4- 177630 

UDP0R5- 177632 

U0P0R6- 177634 

U0P0R7- 177636 



; DEFINE MEMORY MANAGEMENT REGISTERS 



TSV3 

neMORT 



GLOBAL AREAS MACRO Ml 115 

MANAGEMENT DEFINITIONS 



07 -FEB 84 10:58 



M2 



SEQ 025 



.ENOC 

i*USER "I" PAGE ADDRESS REGISTERS 

UIPARO- 177640 

UIPARl- 177642 

UIPAR2- 177644 

UIPAR5- 177646 

UIPAR4- 177650 

UIPAR5- 177652 

UIPAR6- 177654 

UIPAR7- 177656 

.IF NB 

:*USER "O" PAGE ADDRESS REGISTERS 

UDPARO- 177660 

UDPARl- 177662 

UDPAR2- 177664 

UDPAR3- 177666 

UDPAR4- 177670 

U0PAR5- 177672 

UDPAR6- 177674 

UDPAR7- 177676 

.ENOC 

.ENDC 

.IF NB 

:*SUPERVISOR "I" PAGE DESCRIPTOR REGISTERS 

SIPORO' 172200 

SIPORl- 172202 

SIPDR2- 172204 

SIPDR3- 172206 

SIPDR4- 172210 

SIP0R5- 172212 

SIP0R6- 172214 

SIP0R7- 172216 

. IF NB 

i*SUPERVISOR "0" PAGE DESCRIPTOR REGISTERS 

SDPDRO- 172220 

SDPORl- 172222 

SDPDR2- 172224 

SDPDR3- 172226 

SDPDR4- 172230 

S0PDR5- 172232 

SDPDR6- 172234 

SDP0R7- 172236 

.ENOC 

i*SUPERVISOR "I" PAGE ADDRESS REGISTERS 
SIPARO- 172240 
SIPARl- 172242 
SIPAR2- 172244 
SIPAR3- 172246 
SIPAR4- 172250 
SIPAR5- 172252 
SIPAR6- 1722S4 
SIPAR7- 172256 
IF NB 

i*SUPERVISOR "0" PAGE ADDRESS REGISTERS 
SDPARO- 172260 
SOPARl- 172262 
SDPAR2- 172264 



rSV3 • GLOBAL AREAS MACRO 
MEnORY hANAGEMENT OEriNITIONS 



172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 



172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 



39 
40 
41 
42 
43 
44 
45 
46 

47 000004 
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N2 



SEQ 026 



SDPAR3- 172266 
S0PAR4- 172270 
SDPAR5- 172272 
S0PAR6- 172274 
S()PAR7- 172276 
.ENOC 
.ENOC 

:*KERNEL "I" PAGE DESCRIPTOR REGISTERS 

KIPDRO- 172300 

KIPDRl- 172302 

KIPDR2- 172304 

KIPDR3- 172306 

KIPDR4- 172310 

KIPDR5- 172312 

KIPDR6- 172314 

KIPDR7- 172316 

. IF NB 

i*KERNEL "D" PAGE 
DESCRIPTOR REGISTERS 
KDPORO- 172320 
KOPORl" 172322 
KDPDR2- 172324 
KDPDR3- 172326 
KDPDR4- 172330 
KDPDR5- 172332 
K0PDR6- 172334 
KDP0R7- 172336 
.ENDC 

:*KERNEL "I" PAGE ADDRESS REGISTERS 

KIPARO- 172340 

KIPARl- 172342 

KIPAR2- 172344 

KIPAR3- 172346 

KIPAR4- 172350 

KIPAR5- 172352 

KIPAR6- 172354 

KIPAR7- 172356 

.IF NB 

t*KERf€L "D" PAGE ADDRESS REGISTERS 

KDPARO- 172360 

KDPARl- 172362 

KDPAR2- 172364 

KDPAR3- 172366 

K0PAR4- 172370 

KDPAR5- 172372 

K0PAR6- 172374 

KDPAR7- 172376 

.ENOC 

•SBTTL TSU05 REGISTER AND PACKET DEFINITIONS 
! SOME GENERAL EQUATES. 

t 

ERRVEC"- 4 ; POINTER TO ERROR VECTOR FOR BUS TIME OUT. 



B3 
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SEQ 027 



48 
49 

50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
62 
63 
84 
65 
86 
87 
88 
89 
90 
91 
92 
95 
94 
95 
96 
97 
96 
99 
100 
101 
102 
103 
104 



000060 
177S60 
177562 
177520 



100000 
040000 
020000 
010000 
004000 
002000 
001400 
000200 
000100 
000060 
000016 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



100000 
040000 
020000 
017375 
000400 
000002 



TTIVEC-- 60 

TTICSR-" 177560 

TTIBFR-- 177562 

BOVPCR— 177520 

!bIT OEriNITIONS FOR TSSR REGISTER 



I INTERRUPT VECTOR FOR CONSOLE INPUT 
I BUS ADDRESS OF CONSOLE INPUT 
I CONSOLE INPUT DATA BUFFER 
t BDVll PAGE CONTROL REGISTER 



SC- 

BIE' 

SCE< 



NXM- 

NBA- 

HIADOR- 

SSR- 

OFL- 

FATERR- 

TERCLS- 



BIT15 

BIT14 

BIT13 

BIT12 

BITll 

BITIO 

BIT9!BIT8 

BIT7 

BIT6 

BIT4!BIT5 
BIT3!BIT2!BIT1 



I SPECIAL CONDITION 
iBUS INTERFACE ERROR 
I SANITY CHECK ERROR 
iNODIFICATION REFUSED 
iNONEXISTANT NENORY ERROR 
iNEEO BUFFER ADDRESS 
{EXTENDED ADDRESS BITS 
tSUB SYSTEN READY 
•OFF LINE BIT 

I FATAL TERHINATION ERROR COOES 
iTERHINATION CODES 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 
(XSTO) 



XSOTm- 
XSORLS- 
XSOLET- 
XSORLL- 
XSOULE- 
XSONEF- 
XSOILC- 
XSOILA- 

xsonoT- 

XSOONL- 

XSOIE- 

XSOVCK- 

XSOPEO- 

XSOULK* 

XSOBOT- 

XSOEOT- 



I ♦ 



BIT15 

BIT14 

BIT13 

BIT12 

BITll 

BITIO 

BIT9 

BIT6 

BIT7 

BIT6 

BITS 

BIT4 

BITS 

BIT2 

BITl 

BITO 



iTAPE NARK DETECTED 
•RECORD LENGTH SHORT 
•LOGICAL END OF TAPE 
I RECORD LENGTH LONG 
I WRITE LOCK ERROR 
iNON EXECUTABLE FUNCTION 
•ILLEGAL COHNAND 
•ILLEGAL ADDRESS 
•TAPE IN NOTION 
•TRANSPORT ON LINE 
•INTERRUPT ENABLE 
• VOLUME CHECK BIT 
•PHASE ENCODED DRIVE 
•WRITE LOCKED 
•BEGINNING OF TAPE 
•END OF TAPE 



•BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 
i(XSTl) 



Xl.DLT 
XI. SPARE 
XI. COR 
Xl.HBZ 
Xl.RBP 
Xl.UNC 



BIT15 (DATA LATE 

BIT 14 •NOT USED 

BIT13 •CORRECTABLE DATA ERROR 

BIT12*BIT11*BIT10»BIT9*BIT7«BIT6»BIT5*BIT4.BIT3.BIT2*BIT0 iALWAtS 0 

BITS •READ BUS PARITY ERROR 

BITl •UNCORRECTABLE DATA OR HARD ERROR 
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C3 



SEQ 020 



105 
106 
107 

loa 

109 
110 
111 
112 
113 
114 
115 
116 
117 

lie 

119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 



100000 
040000 
035400 
002000 
000200 
000100 
000077 
000007 



177400 
000200 
000100 
000040 
000020 
000010 
000006 
000001 



100000 
040000 
020000 
017400 
000377 



000006 
000006 



000000 
000000 
000001 
000001 



t ♦ 



iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
i(XST2) 



X2.0PM 
X2.RCE 
X2. SPARE 
X2.WCF 
X2.EXTF 
X2.BUFE 
X2.REV 
X2.UNIT 

IbIT definitions FOR 
i(XSTS) 



BIT15 lOPERATION IN PROGRESS (TAPE MOVING) 

BIT 14 I RAH CNECKSUn ERROR 

BIT1S*BIT12*BIT11»BIT9*BIT8 iNOT USED BY TSU05 (ALUATS-0) 
BITIO lURITE CLOCK FAILURE (FIFO NOT EMPTIED BT TRANSPORT) 

BIT7 I IF WRITE CHAR CMD THEN - EXTENDED FEATURES ENABLED 

BIT6 I IF WRITE CHAR CHD THEN • BUFFERING ENABLED 

000077 I IF WRITE CHAR CHD THEN - HICROCODE REVISION LEVEL 

BIT2*BIT1*BIT0 iIF GET STATUS THEN - CURRENTLY SELECTED UNIT NO. 



EXTENDED STATUS REGISTER 3 



X3.HDE 
X3. SPARE 
X3.0PI 
X3.REV 
X5.TRF 
X3.DCK 
X3.MBZ 
X3.RIB 

!bIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
i(XST4) 



- 177400 

- BIT7 

- BIT6 

■ BIT5 
• BIT4 

■ BIT3 
-BIT2*BIT1 

- BITO 



iHICRO-OIAGNOSTIC ERROR CODE 
I NOT USED BY TSU05 
lOPERATION INCOMPLETE 
{REVERSE 

{TRANSPORT RESPONSE FAILURE 
lOENSITT CHECK 
iNOT USED ALWAYS 0 
I REVERSE INTO BOT 



X4.HSP 
X4.RCE 
X4.TSM 
X4.MBZ 
X4.URC 



BIT15 (HIGH SPEED 

BIT14 tRETRY COUNT EXCEEDED 

BIT13 I TRANSPORT SPECIAL MODE 

BIT12»BITll*BIT10*Bir9*BIT8 iNOT USED ALWAYS 0 

000377 iWRITE RETRY COUNT FIELD 



iTSSR TERMINATION CODES (BIT 0-2) 
I 

I - 



TSREJ- 3*2 
UNREC- 6 



DEVICE REGISTER OFFSETS 



iCOMMANO REJECTED 
I UNRECOVERABLE ERROR 



TSBA-- 0 

TSDB-- 0 

TS8AH-- 1 

TSDBH-- 1 



iTSDB/TSBA REGISTER 
iTSDB/rSBA REGISTER HIGH BYTE 



D3 



SEQ 029 



162 
165 
164 
165 
166 
167 
16S 
.69 
170 
171 
1'2 
ITS 
174 
175 
176 
177 
178 
179 
180 
181 
182 
185 
184 
185 
186 
187 
188 
189 
190 
191 
192 
195 
194 
195 
196 
197 
196 
199 
200 
201 
202 
205 
204 
205 
206 
207 
208 
209 
210 
211 
212 
215 
214 
215 
216 
217 
218 



000002 
000005 



000005 



000017 
000015 
000012 
000011 
OOOCIO 
000006 
000005 
000004 
000001 



100000 
040000 
020000 
010000 
007400 
000200 
000140 
000057 



000000 
000400 
001000 
002000 
002400 



000167 
000200 
000201 
000210 
000215 
000254 



TSSR-- 2 
TSSRM-- 5 



iTSSft REGISTER 

iTSSR REGISTER MIGH BTTE 



i ♦ 



TSOB ADDRESS BIT DEFINITIONS 



A1716 - BIT1*BIT0 



I » 



COMMAND DEFINITIONS 



P.GETSTAT 
P.INIT 
P. CONTROL 
P.FORNAT 
P. POSITION 
P.URTSUB 
P.URITE 
P.URTCHAR 
P. READ 



• 17 

- 15 

- 12 

- 11 
■ 10 

- 6 

• 5 

- 4 

- 1 



I ADDRESS BITS 17:16 ARE IN 1:0 



iGET STATUS 
I INITIALIZE 
•CONTROL COrtlANDS 
i FORMAT 
iPQSITION 
(SUBSYSTEM URITE 
lURITE 

I URITE CHARACTERISTICS 
I READ 



COMMAND PACKET HEADER UORO BIT DEFINITIONS 

P.ACK - BITIS {BUFFER AVAIL FOR CONTROLLER 

P.CVC - BIT 14 I CLEAR VOLUME CHECK 

P.OPP • BIT13 iREVERSE SEQUENCE OF DATA BITS 

P. SUB • BIT12 iSUAP BYTES IN MEMORY 

P.MQOE • BIT1I!BITL0!BIT9!BIT8 lEXTENDEO COMMAND MODE FIELD 

P. IE • BIT7 I INTERRUPT ENABLE 



P.FHT- BIT6!BIT5 



P.CMP 



57 



iPACKET HEADER TYPE (ALUAYS-0) 
iMAJOR COMMAND FIELD 



I ♦ 



CONTROL COmAND MODE COOES 



PC. RELEASE 
PC.REUIND 
PC.NOOP 
PC.IEREU 
PC. ERASE 



0*256. 
1*256. 
2*256. 
4*256. 
5*256. 



•RELEASE BUFFER 

iREUIND 

iNO-OP 

iREUINO irtCDIATE INTERRUPT 
•SECURITY ERASE 



CONTROLLER RAM DEFINITIONS 



I 

RMCHBEG - 167 
RMCHENO • 200 
RMPKTBEG- 201 
RMPKTEND- 210 
RMMSGBEG- 215 
RMMSGENO- 254 



{CHARACTERISTICS 10 DATA BEGIN RAH ADDRESS 
{CHARACTERISTICS 10 DATA END RAM ADDRESS 
{COMMAND PACKET BEGIN RAH ADDRESS 
•COMMAND PACKET END RAM ADDRESS 
(MESSAGE BUFFER BEGIN RAH ADDRESS 
(MESSAGE BUFFER END RAH ADDRESS 



REGISTER DEFINITIONS IN THE HESSA(% BUFFER 



000006 



XSTO" 



lEXTE^fiED STATUS REGISTER 0 (UORD 4) 
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E3 



SEQ 030 



219 
220 
221 
222 
223 
224 
225 
226 
227 
226 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
256 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 



000010 
000012 
000014 
000016 



000002 
000004 
000006 

000010 



000000 
000001 
000002 
000004 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000010 
000011 
000020 
000021 
000022 
000023 
000024 



000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



XSTl- 
XST2' 
XST3" 
XST4- 



8. 
10. 
12. 
14. 



lEXTENOED STATUS REGISTER 1 (UORO 5) 
t EXTENDED STATUS REGISTER 2 (UORO 6) 
tEXTENOEO STATUS REGISTER 3 (WORD 7) 
I EXTENDED STATUS REGISTER 4 (UORD 6) 



OFFSETS TO UORO LOCATIONS IN PACKET DEFINITIONS 



PKLOU 
PKHZ 
PKBCNT 

EXBCNT-10 



2 
4 
6 



I LOU ORDER CHARACTERISTIC DATA POINTER 
iHIGH ORDER CHARACTERISTIC DATA POINTER 
iNUMBER OF BYTES IN DATA PACKET 

lNU^BER OF BYTES IN EXTENDED DATA PACKET 



ioATA PACKET OFFSETS FOR URITE SUBSYTEH COMMAND 

' BSELO - 0 iBYTE 0 

BSELl ■ 1 iBYTE 1 

SEL2 - 2 lUORD 2 

SELOATA - 4 lUORO 3 

IbSELO SELECT COOES FOR URITE SUBSYSTEM COMMAND 



PU.NOP 


■ 0 


iNO-OP 


PU.RDRM1 


• 1 


iREAO RAM 


PU.UTRAM 


• 2 


t URITE RAM 


PU.RFIFO 


■ 3 


(READ FIFO 


PU.UFIFO 


- 4 


lURITE FIFO 


PU.RDSTAT 


• 5 


iREAO STATUS 


PU.yCTL 


- 6 


1 URITE TAPE CONTROL 


PU.yFMT 


• 7 


1 URITE TAPE FORMAT 


PU.UMISC 


- 10 


1 URITE MISCELLANEOUS 


PU.UNPR 


- 11 


1 URITE NPR CONTROL 


PU.022 


- 20 


»00 MICROTEST 22 


PU.Dll 


- 21 


iDO MICROTEST 11 


PU.D13 


- 22 


tOO MICROTEST 13 


PU.N01311 


- 23 


iDISABLE MICROTEST 11 AND 13 


PU.RDEXT 


• 24 


iREAO EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 



I BSELl COOES FOR URITE TAPE CONTROL 



UC.IFAO 
UC.IOTAO 
UC.IITAO 
UC.I5RESV 
UC.IREU 
UC.IRUU 
UC.IFEN 
UC.IGO 



BIT7 
BIT6 
BITS 
BZT4 
BITS 
BIT2 
BITl 
BITO 



I IF AD - FORMATTER ADDRESS 

lITAOO • TRANSPORT ADDRESS BIT 0 

lITADl • TRANSPORT ADDRESS BIT 1 

lIRESVS • RESERVED M 

iZREU - REUIND 

iIRUU - REUIND AND UNLOAD 

tIFEN - FORMATTER ENABLE 
I GO 
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F3 



SEQ 031 



276 




i ♦ 




277 




iBSELl COOES 


FOR URITE F0RMA1 


278 




1 - 




279 


000200 


UF.IHISP 


- BIT7 


280 


000 LOO 


UF.IURT 


- BIT6 


281 


000040 


UF.IREV 


- BITS 


282 


000020 


HF.lUFn 


- BIT4 


285 


000010 


UF.IEOIT 


- BITS 


284 


000004 


UF.IERASE 


- BIT2 


285 


000002 


UF.I3RESV 


- BITl 


286 


000001 


UF.I4RESV 


- BITO 


287 








288 








289 








290 




Ibseli cooes 


FOR URITE niSCEl 


291 








292 


000200 


As. EXT 


- BIT7 


293 


000020 


HS.RSFIFO 


- BIT4 


294 


OOOOlO 


hS.RSTAPE 


- BITS 


295 


000006 


MS. ATTN 


- BIT2!BIT1 


296 


000001 


MS.RSO 


- BITO 


297 




1 ♦ 




298 




1 nS.ATTN SUBCOOES 


299 




1 - 




300 


000000 


nSA.NOP • 0*2 


301 


000002 


nSA.VOL - 1*2 


302 


000004 


nsA.NRAn- 2*2 


303 


000006 


nSA.FRAM- 3*2 


304 




1 ♦ 




305 




s URITE SUBSYSTEM WRITE »«>R 1 


306 








307 


000200 


»«>.IR 


• BIT7 


308 


000100 


l«>.0UT 


• BIT6 


309 


000040 


V^.LOOP 


- BITS 


310 


000020 


NP.URP 


- BIT4 


311 




I ♦ 


312 




1 READ STATUS MESSAGE BUFFER 


313 




I - 




314 








315 


000200 


S2.Din 


• BIT7 


316 


000100 


S2.ILU 


- BIT6 


317 


000040 


S2.0UTR0Y 


• BITS 


318 


000020 


S2.IIM0Y 


> BIT4 


319 


000010 


S2.ATPf) 


• BITS 


320 


000004 


S2.BTPf) 


- BIT2 


321 


000003 


S2.UN0EF 


- BIT1*BIT0 


322 


100000 


Sl.PARIN 


- BIT15 


323 


040000 


S1.I2RESV 


■ BIT14 


324 


020000 


Sl.IlRESV 


- Bins 


325 


010000 


Sl.IEOT 


- BIT12 


326 


004000 


SI . IIDENT 


- BITll 


?27 


002000 


Sl.ICER 


- BITIO 


328 


001000 


SI . IFHK 


" BIT9 


329 


000400 


Sl.IHER 


- BIT8 


330 


000200 


SO.ISPEED 


■ BIT7 


331 


000100 


SO.IROY 


- BIT6 


332 


000040 


SO.IONL 


- BITS 



lIHISP • HIGH SPEED 

lIURT - URITE 

iIREV - REVERSE 

llUFH ■ URITE FILE NARK 

lIEDIT • EDIT 

iIERASE - ERASE 

iIRESVS - RESERVED 

IIRESV4 - RESERVED M 



•INVERT SENSE OF EXTENDED FEATURES SUITCH 
iRESET FIFO AND I»rUT PARITY ERRORR 
iRESET TAPE STATUS IN 2 FLIP-FLOPS 
•ATTENTION TRIGGER FIELD 

iRESET TIHER A.B THEN DELAY TINES IN SEL2 



(NO-OP (NOTHING TRIGGERED) 
I SIMULATE ON -LINE /OFF -LINE TRANSISTION 
iFORCE NON-FATAL RAN ERROR (FORCES ERRCOOE 54) 
I FORCE FATAL RAH ERROR (CAUSES SCE TO SET) 

BSELl BIT DEFINITIONS 

I INTERRUPT REQUEST (0-1 TRANSITION) 
•TAPE DATA DIRECTION OUT (0- IN) 
•ENABLE TRANSPORT LOOPBACK 

t URITE CORRECT PARITY (SET-0 TO URITE URONG) 



UORD 49 BYTE 2 



(UNDEFINED) 
UORD #8 BYTE 



UORD 48 BYTE 0 



DATA IN HISS 
ILU H 
OUT ROY H 
IN ROY H 
TINER A FLAG H 
TINER B FLAG H 

PARIN H 
IRESV2 
'^RESVl 
lEOT L 
IIDENT H 
ICER H 
IFHK H 
IHER H 
I SPEED H 
IRDT L 
lONL L 
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TSU05 REGISTER AND PACKET OEFINlTlONS 



G3 



SEQ 032 



333 


000020 


TLOP ■ RTTA i Ti HP i 


334 


000010 


S0.I06Y ■ BIT3 1 lOBY L 


335 


C00004 


SO.IRUO ■ BIT2 1 IRUD L 


336 


000002 


SO.IFBY ■ Bill 1 TFBY L 


337 


000001 


SO.IFPT ■ BITO 1 IFPT L 


338 






339 




lUNIBUS HAP OEFIIMTIONS 


340 






341 


170200 


nMRO> 170200 


342 






343 






344 




.SBTTL special macros AND OPOEFS 


345 






346 






347 




1 • 


348 




iSAVE GENERAL REGS 1 TO 5 


349 




1 - 


350 






351 




.MACRO SAVREG 


352 




JSR R5.REGSAV 


353 




.ENDM 


354 






355 




t * 


356 




1 MACRO TO FORCE AN ERROR 


357 




!macro FORCERROR TAG.NOTSSR 


358 




359 




.NLIST 


360 




.IIF NOF LISTALL. .NLIST 


361 




.LIST 


362 




.IF B NOTSSR 


363 




MOV TSSR(R5).R1 iREAO TSSR 


364 




.ENDC 


365 




MOV FORCER. FORCER iIS FORCER SET? (LEAVE 


366 




BNE TAG iBR IF YES 


367 




•NLIST 


368 




.IIF NOF LISTALL. .LIST 


369 




.LIST 


370 




.ENON 


371 




372 




1 * 


373 




i MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 


374 




t WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 


375 




1 SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 


376 




1 FORCER TO 177777 


377 




1 TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 


378 






379 




.MACRO FORCEXIT TAG 


380 




.NLIST 


381 




.IIF NOF LISTALL. .NLIST 


382 




.LIST 


363 




MOV FORCER. FORCER iIS FORCER NEGATIVE? 


364 




BMI TAG iBR IF YES 


365 




.NLIST 


366 




.IIF NOF LISTALI . .LIST 


387 




.LIST 


386 




.ENDM 


369 




i ♦ 
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SEQ 033 



390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 

419 002174 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 



000000 



000000 



I MACRO TO INCREMENT ERROR COUNTS 

.MACRO NEXT.ERRNO 
.NLIST 

iii.IIF NDF LISTALL. .NLIST 

ERRN0-ERRN0»1 
iti.IIF NOF LISTALL. .LIST 
.LIST 
.ENOn 

I MACRO TO PERFORM XOR 



.MACRO XOR A.B 

MOV A.-(SP) 

BIC B.(SP) 

BIC A.B 

BIS CSP)».B 
.ENOM 



EN-0 

.SBTTL FORCER 



I INITIALIZE ERROR NUMBER 
FORCE ERROR FLAG 



I THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
t TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 



FORCER:: 



0 I FORCE TYPE ALL HARD ERRORS (THE ONES CALLED 

1 - BY THE MACRO "IFERROR"). AN ERROR NEED NOT - 
I - EXIST. JUST ASSUME AND TYPE THE MESSAGE. 



.SBTTL GLOBAL DATA SECTION 



I THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
iIN MORE THAN ONE TEST, 
t - - 



I THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
•SINGLE UNIT DEFAULTS CLISTED) ARE IN THE DEFAULT P-TABLE. 



002176 


000000 


EPRTSW: : 


.WORD 


0 


002200 


000000 


UNITN: : 


.WORD 


0 


002202 


000000 


QVP: : 


.WORD 


0 


002204 


000000 


CSRADDR:: 


.WORD 


0 


002206 


000224 


IVEC:: 


.WORD 


224 


002210 


000200 


IPRI:: 


.WORD 


PRI04 


002212 


000000 


TSTCNT: : 


.WORD 


0 


002214 


000000 


LOOPCNT:: 


.WORD 


0 


002216 


000000 


DEVCNT:: 


.WORD 


0 


002220 


000000 


FATFLG: : 


.WORD 


0 


002222 


000000 


INTRECV:: 


.WORD 


0 



I PRINT SWITCH 

I UNIT # UNDER TEST. 

I QUICK VERIFY FLAG. 

{ADDRESS OF CSR FOR CURRENT DEVICE 

I INTERRUPT VECTOR 

I INTERRUPT PRIORITY. 

I NUMBER OF TESTS RUN IN THIS PASS 

(REMAINING ITERATION COUNT FOR TEST 

{NUMBER OF DEVICE UNDER TEST 

iSET IF FATAL ERROR IS DETECTED IN TEST 

(SET IF TAPE INTERRUPT WAS RECEIVED 



TSV3 GLOBAL AREAS 
GLOBAL DATA SECTION 



447 


002224 


000000 


446 


002226 


000000 


449 


002230 


000000 


450 


002232 


000000 


451 


002234 


000000 


452 


002236 


000000 


455 


002240 




454 


002300 


000000 


455 


002302 


000000 


456 


002304 


000000 


457 


002306 


000000 


458 


002310 


000000 


459 


002312 


000000 


460 


002314 


000000 


461 


002316 


000000 


462 


002320 




463 
464 


002464 

002630 




465 






466 






467 






466 






469 






470 






471 






472 






473 






474 






475 






476 






477 






478 






479 






480 






481 






482 






483 


002750 




484 


002750 


000000 


485 


002752 


177777 


486 


002754 


000001 


487 


002756 


000002 


488 


002760 


000004 


489 


002762 


000010 


490 


002764 


000020 


491 


002766 


000040 


492 


002770 


000100 


493 


002772 


000200 


494 


002774 


000400 


495 


002776 


001000 


496 


003000 


002000 


497 


003002 


004000 


498 


003004 


010000 


499 


003006 


020000 


500 


003010 


040000 


501 


003012 


100000 


502 


003014 


177776 


503 


003016 


177775 
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SEQ 034 



EXTFEA: : 


.UORD 


0 


■ EXTENDED FEATURES SOFTWARE SU O-OFFd-ON 


BENBSU: : 


UORO 


0 


■ BUFFER ENABLE SWITCH SW 0«0FFa-0N 


EXPO:: 


.UORD 


0 


lEXPECTED RAM DATA FOR PRAMRKT ROUTINE 


RECV:: 


.UORD 


0 


■RECEIVED RAM DATA FOR PRAMPKT ROUTINE 


ERRHI: : 


.UORD 


0 


IHZGH ADDRESS MEMORY ERROR 


ERRLO:: 


UORO 


0 


iLOW ADDRESS MEMORY ERROR 


RAMDATA: : 


.BLKU 


16. 


iDATA READ FROM RAM PACKET OR MESSAGE 8UF AREA 


RANSZZ:: 
RCVHZAOO: : 


.UORD 


0 


iRAM DATA SIZE FOR PRAMPKT ROUTINE 


.UORD 


0 


■RECEIVED BUFFER HIGH ADDRESS 


RCVLOAOO: : 


.UORO 


0 


■RECEIVED BUFFER LOW ADDRESS 


COUNT:: 


.UORO 


0 


■TEST COUNT PATTERN 


DATA:: 


.UORO 


0 


■TEST DATA 


TSTFLAG:: 


.UORD 


0 


■TEST FLAG UORD 


TSTPTR:: 


.UORD 


0 


■TSTBLK POINTER 


PRTMO:: 


.UORD 


0 


■PRINT ROUTINE TEMP 


ExmSG:: 


.BLKB 


100. 


■EXPECTED MESSAGE BUFFER DATA 


RECnSG:: 


.BLKB 


100. 


■RECEIVED MESSAGE BUFFER DATA 


TMPBFR:: 


.BLKB 


80. 


■TEMPORARY STORAGE FOR PRINT 



.SBTTL TSTBLK 



TEST DATA TABLE 



THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 

IN SEQUENCE THE DATA IS: 

ALL ZEROS 

ALL ONES 

WALKING ONES 

WALKING ZEROS 

ALTERNATING ONES AND ZEROS 



TSTBLK: 



.WORD 


0 


.WORD 


177777 


.UORO 


BITO 


.UORO 


BITl 


.UORO 


BIT2 


.UORD 


BIT3 


.UORO 


BIT4 


.UORO 


BIT5 


.UORO 


BIT6 


.UORD 


BIT7 


.UORD 


BITS 


.UORD 


BIT9 


.UORD 


BITIO 


.UORD 


BITll 


.UORD 


BIT12 


.UORD 


BIT13 


.UORO 


BIT14 


.UORD 


BIT15 


.UORD 


tCBITO 


.UORD 


tCBITl 



■ALL ZEROS 
■ALL ONES 

■DATA FOR WALKING ONES 



■DATA FOR UALKING ZEROS 



J3 



177775 


.UORO 


tCBIT2 


177767 


.UORD 


tCBITS 


177757 


.UORD 


tCBIT4 


177757 


.WORD 


tCBIT5 


177677 


.WORD 


tCBIT6 


177577 


.WORD 


tCBIT7 


177577 


.WORD 


tCBITS 


176777 


.WORD 


♦CBIT9 


175777 


.WORD 


tCBITlO 


175777 


.WORD 


tCBITll 


167777 


.WORD 


tCBIT12 


157777 


.WORD 


tCBITlS 


157777 


.WORD 


tCBIT14 


077777 


.WORD 


tCBITl5 


125252 


.WORD 


125252 


052525 


.WORD 


052525 


005060' 


TBLENO--. 





000000 
000000 



TSV3 - GLOBAL AREAS MACRO H1113 
TSTBLK - TEST DATA TABLE 



504 003020 

505 005022 

506 005024 

507 005026 

508 005050 

509 005052 

510 005054 

511 005056 

512 005040 
515 005042 

514 003044 

515 003046 

516 003050 

517 003052 

518 003054 

519 003056 
520 

521 
522 
525 
524 
525 
526 

527 005060 

526 005070 

529 

530 

551 

552 005110 
555 
554 
555 
536 005114 
557 005116 
5Sa 005120 

539 005122 

540 005124 

541 003126 

542 003130 
543 

544 

545 003132 

546 003134 

547 003136 
546 003140 

549 003142 

550 003144 

551 003146 

552 OOSISO 

553 003152 

554 003154 

555 003156 

556 003160 

557 003162 
556 003162 

559 003164 

560 003166 
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SEQ 035 



i ALTERNATING ONES. ZEROS 

i ALTERNATING ONES. ZERO OPPOSITE FROM ABOVE 



.SBTTL GLOBAL ENVIRONMENT STORAGE 
I STORAGE FOR DEVICE REGISTERS 



000000 100000 
000000 000000 



000000 



005112 000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
002000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 



duMHY: 


0.100000,0,0 


I DUMMY 

1 wi ail 








0.0.0.0.0.0.0.0 












t . . .FOR 


MULTI 


-UNIT CHECKOUT 


OUFLG: ; 


.UORD 


0 




1 "DROPPED UNIT" FLAG. 










•INHIBITS CODE IN "CLEAN-UP". 


NODEV:: 


.WORD 


0 




iFLAG TO SAY NO DEVICE. 


TEMPI:: 


.-JORD 


0 




iSOME TEMP LOCATIONS. 


TEMP2:: 


.WORD 


0 






XXCOMM: 


.WORD 


0 




|XX0P» com BLOCK POINTER. 


FREE:: 


.UORD 


0 




ilST FREE MEMORY ADDRESS... 


FRESIZ: 


.WORD 


0 




t...AN0 SIZE CIN UORDS). 


FREEHI: 


.UORD 0 




tLAST 


UORD IN FREE SPACE 


KTFL6: : 


.UORD 


0 




jKTll. MEM AVAIL FLAG - 










t- .UORD 0 - <24K OR NO KT - 










:- NZ - >24K AND KT. 


KTENABLE:: .WORD 


0 




iSET BY TEST ROUTINES TO FLAG >28K UNDER 


NXMFLG: 


.UORD 


0 




iSET IF WE CAN TEST CLEARED OTHERUISE 


NXMLO: : 


.UORD 


0 




iNXM LO ADDRESS BITS 


NXMHI:: 


.UORD 


0 




(NXM HI ADDRESS BITS FOR DALS 16-21 


T23A:! 


.UORD 


0 




{PROCESSOR TYPE FLAG 


T23B:: 


.UORD 


0 




iPROCESSOR TYPE FLAG B 


T36FLG: 


.UORD 


0 




sTEST 3B FLAG tO 


PST32W: 


.UORD 


2000 




i32U BLOCK ADDRESS FOR 32K START 


SIFLAG: 


.UORD 


0 






BAOOAT: 


.UORD 


0 




1 ACTUAL DATA 


GDOAT : : 


.UORD 


0 




1 EXPECTED DATA 


LOOPFL : 


.UORD 


0 






CTAB: : 








1 CONFIGURATION TABLES. 


CTABM:: 


.WORD 


0 




: CONFIG UORK. 




.UORD 


0 








.UORD 


0 







I<3 

TSV3 GLOBAL AREAS MACRO Ml 113 07 -FEB -84 10:58 SEQ 036 

GLOBAL ENVIRONMENT STORAGE 



561 003170 000000 .WORD 0 

562 003172 177777 .WORD -1 lENO OF MEM TABLE. 

563 003174 CTABE:: 

564 : ERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 

565 t 

566 s 0 ■ UNIT NOT TESTED 

567 ( 100000 - UNIT ONLINE. NO ERRORS 

568 I lOXXXX - UNIT ONLINE. ENCOUNTERED XXXX ERRORS 

569 i 160000 - UNIT DROPPED. NON-EXISTENT DEVICE REGISTER 

570 ; 160001 - UNIT DROPPED. NOT IDLE AT START 

571 : 14XXXX - UNIT DROPPED. ENCOUNTERED XXXX ERRORS 

572 J 

573 003174 ERTABL: .BLKU 64. 

574 003374 000000 ERTABE: .WORD 0 
575 

576 003376 000000 SKIPT: .WORD 0 il-SKIP SUBTEST 0-NO SKIP OF SUBTEST 

577 

578 .SBTTL GLOBAL TEXT MESSAGES 

579 

580 t THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS. 

581 ; MESSAGES. AND ASCII INFORMATION THAT ARE USED IN 

582 I MORE THAN ONE TEST. 

583 ;-- 
584 

585 
586 

587 !♦ 

588 I NAMES OF DEVICES SUPPORTED 

589 s- 
590 

591 003400 OEVTYP <TSU05> 

003400 LIOVTYP:: 
003400 124 123 125 .ASCIZ /TSUOS/ 

.EVEN 

592 

594 .» 

595 (TEST DESCRIPTION 

596 ,- 

597 003406 OESCRIPT <**«* TSUOS DIAG PART 1 - REPLACE M74SS IF ERROR 
003406 LtOESC:: 

003406 052 052 052 .ASCIZ /*••* TSUOS DIAG PART 1 - REPLACE M74SS IF ERROR *•**/ 

.EVEN 

618 
619 
620 

621 l» 

622 {BIT TO ASCII CONVERSION FOR TSSR REGISTER 

623 ,. 
624 

625 003474 003534' 003537' 003543' TSSRBIT:: .WORD It .2t ,3t .4t .5$ .6$ . 7t .8t 

626 003514 003575' 003601' 003605' .WORD 9t . lOt . lit . 12t . 13» . 14t . 15t . 16t 

627 003534 123 103 000 II: .ASCIZ 'SC 

628 003537 102 III 105 21: .ASCIZ 'BIE' 

629 003543 123 103 105 3t: .ASCIZ 'SCE' 

630 003547 122 115 122 4t: .ASCIZ 'RMR' 

631 003SS3 116 130 115 5t: .ASCIZ 'NXM' 

632 003557 116 102 101 6t: .ASCIZ 'NBA' 



TSV3 - GLOBAL ARt^S MA:»»0 
GLOBAL TEXT MESSAGES 



633 


003563 


102 


111 

AAA 


634 


003570 


102 


111 


635 


003575 


123 


123 


636 


003601 


117 


106 


637 


003605 


102 


111 


638 


003612 


102 


111 


639 003617 


102 


111 


640 


003624 


102 


111 


641 


003631 


102 


111 


642 


003636 


102 


111 


643 








644 


003644 


124 


123 


645 


003677 


124 


123 


646 


003732 


040 


040 


647 


003771 


045 


101 


648 


004012 


045 


101 


649 


004052 


045 


101 


650 


004111 


045 


116 


651 


004115 


040 


040 


652 


004144 


040 


040 


653 


004207 


045 


116 


654 


004213 


040 


040 


655 


004250 


040 


040 


656 


004272 


045 


101 


657 


004327 


040 


040 


658 


004401 


040 


^0 


659 004451 


040 


O^'fO 


660 








661 


004521 


000 




662 


004522 


045 


116 


663 


004525 


045 


101 


664 


004561 


045 


116 


665 


004635 


045 


101 


666 


0*^737 


122 


101 


667 


005005 


040 


040 


668 


005050 


127 


122 


669 005105 


124 


123 


670 005200 


124 


123 


671 


005272 


106 


101 


672 005364 


105 


122 


673 


005452 


045 


116 



674 
675 
676 
677 
678 
679 
680 
681 
682 
683 

684 005546 
005546 

685 005546 

005546 013746 003112 
005552 012746 003771 
005556 012746 000002 
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L3 



SEQ 037 



124 
124 
122 
114 
124 
124 
124 
124 
124 
124 

123 
123 
116 
040 
040 
040 
045 
125 
!xl 
045 
116 
111 
040 
042 
042 
042 



000 
040 
045 
040 
115 
103 
111 
123 
123 
124 
122 
045 



7«: 
8«: 
91: 

lot 

lit 
121 
13« 
141 
15t 
16t 



SFIERR: 

SFHERR: 

NXR: 

NXRX: 

TSSX: 

FUSI: 

JSI: 

NSI: 

FNOINTR 

NOINTR: 

IFAULT: 

INTX: 

NOINIT 

NSINIT 

BRINIT 

NUL: 

NULCR; 

EXPGOT 

EXPGT2 

0UA012 

PKTRAM 

SCME: 

URinSG: 

URTERR: 

ROERR: 

SCHERR: 

RETERR: 

Norcri: 



.ASCIZ •BIT9' 

.ASCIZ 'BIT8' 

.ASCIZ 'SSR* 

.ASCIZ 'OFL' 

.ASCIZ •BIT5' 

.ASCIZ 'BIT4' 

.ASCIZ 'BITS' 

.ASCIZ •BIT2' 

.ASCIZ 'BITl' 

.ASCIZ 'BITO' 
.EVEN 

.ASCIZ 'TSSR ERROR AFTER SOFT INIT' 

.ASCIZ 'TSSR ERROR AFTER BUS RESET' 

.ASCIZ / NON-EXISTANT DEVICE REGISTER/ 

.ASCIZ /«A ADDRESS: #06/ 

.ASCII /«A TSBA.TSSR EXP'D: l(06KA.tf06KN/ 

.ASCIZ /«A TSBA.TSSR REC'D: tf06«A.tf06/ 

• ASCII /iNMA/ 

*. ASCIZ / UNEXPECTED INTERRUPT/ 

.ASCIZ / INTERRUPT EXPECTED. NOT RECEIVED/ 

.ASCII /KNtfA/ 

.ASCIZ / NO INTERRUPT WAS GENERATED/ 

.ASCIZ / INTERRUPT FAULT/ 

.ASCIZ /KA CPU PC: tf06KA TSBA: #06/ 

.ASCIZ / "BUS-INIT" DIDN'T INITIALIZE CONTROLLER/ 

.ASCIZ / "SOFT-INIT" DIDN'T INITIALIZE THE DPU/ 

.ASCIZ / "BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

.ASCIZ // 

.ASCIZ /«N/ 

.ASCIZ /«A EXP'D: «06«A. REC'D: «06/ 

.ASCIZ /ifNM EXP'D: i(06«A. i(06tfNtfA REC'D: KOtfA, «06/ 

.ASCIZ /«A REG(U) WRITTEN TO: «06«A REG(R) READ: EXP'D: «06«A. REC'D: «06/ 

.ASCIZ 'RAM Cent«nts Do Not Hatch Packet Sent' 

.ASCIZ / CONFIG DOESN'T MATCH MFG. MASTER/ 

.ASCIZ 'URITE CHARACTERISTICS Failed' 

.ASCIZ 'TSSR Incorrect After URITE Comnand. More Bits Set Than SSR' 

.ASCIZ 'TSSR Incorrect APter READ Command. More Bits Set Than SSR' 

.ASCIZ 'FATAL ERROR IN SUBTEST - CHECK TAPE. CABLES. TRANSPORT etc' 

.ASCIZ 'ERROR IN SUBTEST - URITE DATA RETRY FIVE TIMES FAILED' 

.ASCIZ 'KNtfA ***** NO NXM ADDRESS- -CANNOT TEST NXM TIMEOUT. *****«N' 
.EVEN 

.SBTTL GLOBAL ERROR REPORT SECTION 



: THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 

J CALLS THAT ARE USED IN MORE THAN ONE TEST, 

t ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 



NXRERR: 



BGNHSG NXRERR 



PRINTX 
MOV 
MOV 
MOV 



«NXRX.NOOEV 
NOOEV.-CSP) 
•NXRX.-(SP) 
♦2.-(SP) 



I NON-EXISTANT DEVICE REGISTER. 
iNODEV - NEXM ADDRESS. 



TSV3 - GLOBAL AREAS MACRO M1113 

GLOBAL ERROR REPORT SECTION 



005562 
005564 
005566 

686 005572 

687 005576 
005576 
005576 

688 
689 
690 
691 
692 
693 

694 005600 

695 005602 

696 005604 

697 005606 

698 005612 
005612 
005616 
005622 
005624 
005626 

699 005632 
700 

701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 

719 005634 

720 005634 

721 005640 

722 005642 
005642 
005644 
005650 
005654 
005656 
005660 

723 005664 

724 005666 

725 005672 

726 005674 



010600 
104415 

062706 000006 
004737 005600' 



104423 



005727 
000000 
001402 

004777 177770 

012746 004522' 
012746 000001 
010600 
104415 

062706 000004 
000207 



010104 
010446 

012746 006225' 
012746 000002 
010600 
104414 

062706 000006 
010400 

004737 015654' 
103410 
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M3 



SEQ 036 



L 10002: 



MOV 
TRAP 
ADD 
JSR 

ENDMSG 
TRAP 



SP.RO 
C$PNTX 
•6.SP 
PC. EXTEND 



CIMSG 



i PRINT EXTENSION IF REQUIRbO. 



THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
TO ANY OF THE ABOVE ERROR SIGNATURES. 



EXTEND: 


TST 


CPC)» 




EXTA: 


0 




J 0 • NO EXTENSION, 




BEQ 


11 






JSR 


PC.aEXTA 


J APPEND EXTENSION TEXT. 


IS: 


PRINTX 


«NULCR 


t PRINT A BLANK LINE 




MOV 


♦NULCR.-(SP) 






MOV 


♦l.-CSP) 






MOV 


SP.RO 






TRAP 


CIPNTX 






ADD 


♦4.SP 






RTS 


PC 






.SBTTL 


PRITSSR - PRINT 


TSSR CONTENTS 



t ♦ 

> 



jROUTINE TO DISPLAr THE CONTENTS. AND BIT DEFINITIONS. OF 
»THE TSSR REGISTER. THIS ROUTINE IS NORMALLlf CALLED ONLY 
tBY A MESSAGE PRINTING ROUTINE 



CONTENTS OF TSSR 



INPUTS: 
t Rl 
! SUBORDINATE ROUTINES: 

I CHKAMB CHECK FOR AMBIGUOUS CONTENTS 

I 

t - 



PRITSSR: 



SAVREG 

MOV R1.R4 

PRINTB *TSSRF0R.R4 

MOV R4.-CSP) 

MOV ♦TSSRFOR,-(SP) 

MOV #2.-(SP) 

MOV SP.RO 

TRAP CIPNTB 

ADD «6.SP 

MOV R4.R0 

JSR PC. CHKAMB 

BCS 5f 

PRINTX *AMBTSSR 



tSAVE GENERAL REGISTERS 
jSAVE THE TSSR CONTENTS 
i PRINT THE CONTENTS OF TSSR 



I GET TSSR BACK FOR CHKAMB 
;ARE CONTENTS AMBIGUOUS ? 
t BRANCH IF NOT 

iSHOU CONTENTS ARE AMBIGUOUS 



N3 



rSV3 - GLOBAL AREAS 



TSSR 


PRINT 


TSSR CONTENTS 




005674 








005700 


Vie r40 


AAAAA4 




005704 


VlvDUU 






005706 


4 t%M.M 1 C 






005710 


OOc 'vD 


WWW/4 


727 


005714 






728 


005716 




nni A7<^ 

WJXH rO 


729 


005722 






730 


005724 




W/cOdU 


731 


005730 


fti 37m 


^VOH rH 


732 


005734 






733 


005736 






734 


005740 






735 


005742 






736 


005744 






737 


005746 


01 1 1 <V) 




736 


005750 


xxcwcc 




739 


005752 






740 


005754 


112762 




741 


005762 


nns72i 




742 


005764 


AOA7<«V 
VW f oo 




743 


005766 


10SAA2 




744 


005770 








005770 








005774 








006000 




000009 




006004 








006006 


1 nAAi ^ 






006010 


nA27fW« 


OOOOOA 


745 








746 


006014 






747 


006016 




1 777A1 


748 


006022 




WM9W> 


749 


006026 








006026 


UXVO^D 






006030 


vie r HO 


W/OOUO 




006034 


wXc r^D 


0A0A09 




006040 


UXUOUU 






006042 


1 AAAm 
XUH<?19 






006044 




OMWUl 
UwUWJO 


750 


006050 






751 


006052 




1 7771 7 

11 1 III 


752 


006056 


WXH xo 




753 


006060 






754 


006062 


ooA2nx 




755 


006064 






756 


006066 


wXOOUO 


W f WHO 


757 


006072 








006072 


010346 






006074 


012746 


006347 




006100 


012746 


000002 




006104 


010600 






006106 


104415 






006110 


062706 


000006 


758 


006114 


042704 


176377 


759 


006120 


001411 




760 


006122 







MACRO Ml 113 07 -FEB 84 10:58 



SEQ 039 



5$: 



10$: 



ill: 

131: 
15$: 



20$. 



25$: 



MOV 


♦AMBTSSR.-CSP) 




MOV 


♦l.-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




AOO 


•4.SP 




MOV 


R4.R3 


{CONTENTS OF TSSR 


BIC 


«HIA00R!FATERR!TERCLS.R3 i CLEAR ALL MULTIPLE 


BEQ 


20$ 


iNO BITS ARE SET 


MOV 


•TMPBFR,R2 


tTEMPORMY ASCII BUFFER 


MOV 


•TSSRBIT.Rl 


1 ASCII EQUIVALENT OF BITS 


TST 


R3 


{REMAINING BITS TO CONVERT 


BEQ 


15$ 


{BRANCH WHEN ALL ARE DONE 


CLC 




iPI FAQ PADRY FnCt QHTPT 


ROL 


R3 


{SHIFT NEXT BIT TO CARRY 


BCC 


13$ 


: BRANCH IF BIT NOT SET 


MOV 


(Rl).RO 


{POINTER TO BIT DEFINITION 


MOVB 


CR0)t.CR2)« 


iMOVE ASCIZ TO BUFFER 


BNE 


11$ 


{MOVE ALL BITS 


MOVB 


..-1CR2) 


{INSERT A COMMA TO TERMINATE 


TST 


CRD* 


{POINT TO NEXT OESCRIPTION 


BR 


10$ 


{GET THE REMAINING BITS 


CLR6 


-CR2) 


{TERMINATE THE LINE 


PRINTX 


♦TSSDEF,#TMPBFR 


{PRINT THE BIT DEFINITIONS 


MOV 


♦TMPBFR.-CSP) 




MOV 


•TSSOEF.-CSP) 




MOV 


♦2.-(SP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




ADD 


«6.SP 




MOV 


R4.R3 


{GET THE TSSR CONTENTS 


BIC 


♦tCTERCLS.R3 


{CLEAR ALL BUT TERMINATION 


MOV 


TC0C0DCRS).R3 


iGET THE TERMINATION CODE MEANING 


PRINTX 


•TC0ASC.R3 


{PRINT THE TERMINATION CODE 


MOV 


R3.-(SP) 




MOV 


♦TCOASC.-CSP) 




MOV 


♦2.-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




AOO 


«6.SP 




MOV 


R4.R3 


;TSSR CONTENTS AGAIN 


BIC 


♦tCFATERR.RS 


{CLEAR ALL BUT FATAL TERMINATION 


BEQ 


25$ 


iOON'T PRINT IF ZERO 


ASR 


R3 




ASR 


R3 




ASR 


R3 


{ALINE TERMINATION CODE FOR INDEX 


MOV 


TSFC00CR3).R3 


{GET THE FATAL TERMINATION CODE 


PRINTX 


♦TFCASC.R3 


{PRINT THE FATAL TERMINATION CODE 


MOV 


R3.-CSP) 




MOV 


♦TFCASC.-(SP) 




MOV 


♦2.-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




AOO 


46 SP 




BIC 


«tCHIADm.R4 


{CLEAR ALL BUT EXTENDED ADDRESS 


BEQ 


30$ 


{DON'T PRINT IF ZERO 


PRINTX 


•TEXASC.R4 


{PRINT THE EXTENDED ADDRESS BITS 



TSV5 - GLOeAl. AREAS MACRO HlllS 

PRITSSR PRINT TSSR CONTENTS 



07FEB-84 10:58 



006122 


010446 








NOV 


006124 


012746 


006245' 






MOV 


0061S0 


012746 


000002 






MOV 


006134 


010600 








NOV 


006136 


104415 








TRAP 


006140 


062706 


000006 






ADO 


761 006144 


013703 


002176' 




30$: 


MOV 


762 006150 










PRINTX 


006150 


010346 








nov 


006152 


012746 


000001 






nov 


006156 


010600 








nov 


006160 


104415 








TRAP 


006162 


062706 


000004 






ADD 


763 006166 


000207 








RTS 


764 












766 006170 








EPRT2: 




767 006170 


045 


116 


045 


EPRTl: 


.ASCIZ 


782 006225 


045 


116 


045 


TSSRFOR: 


783 006245 


045 


116 


045 


TEXASC: 




784 006306 


045 


116 


045 


TCOASC: 




785 006347 


045 


116 


045 


TFCASC: 




786 006416 


045 


116 


045 


TSSOEF: 




787 006445 


045 


116 


045 


M«TSSR: 


788 










.EVEN 


789 006506 


006526' 


006551' 


006577' 


TCOCOO: 


.UORO 


790 006526 


116 


157 


162 


Iti 


.ASCIZ 


791 006551 


124 


145 


162 


21 1 


.ASCIZ 


792 006577 


124 


141 


160 


SI: 


.ASCIZ 


793 006621 


106 


165 


156 


4t: 


.ASCIZ 


794 006641 


122 


145 


143 


51: 


.ASCIZ 


795 006723 


122 


145 


14S 


61: 


.ASCIZ 


796 006772 


125 


156 


162 


71: 


.ASCIZ 


797 007016 


106 


141 


164 


61: 


.ASCIZ 


798 










.EVEN 


799 












800 007046 


007056* 


007112' 


007123' 


TSFCOO: 


.UORO 


801 007056 


111 


156 


164 


It: 


.ASCIZ 


802 007112 


122 


145 


163 


2»: 


.ASCIZ 


803 007123 


102 


165 


163 


31: 


.ASCIZ 


804 007167 


122 


145 


163 


49: 


.ASCIZ 


805 










.EVEN 


806 












807 










•SBTTL 


808 













B4 



R4.-(SP) 

•TEXASC. -CSP) 

•2,-(SP) 

SP.RO 

CIPNTX 

•6.SP 

EPRTSU.R3 

R3 

R3.-(SP) 

•l.-(SP) 

SP.RO 

CIPNTX 

•4.SP 

PC 



SEQ 040 



I PR INT NEAASGE BUFrER ADDRESS 
(PRINT PROPER MESSAGE 



•RETURN TO CALLER 



k****REPLACE M74S5*****' 

.ASCIZ 'MNM TSSR - «06' 

.ASCIZ '«NM Extendi AddrM* Bits - «06' 

.ASCIZ '«NM T«r«;A«tien C1m« Cod* - «T' 

.ASCIZ 'MMA Fatal Tarmi nation Claaa Cod* - <T' 

.ASCIZ 'MM TSSR Bit* Sot: «T' 

.ASCIZ 'MM TSSR Contonta Ara AMblpuotM' 

II. 21. 51.41.51.61. 71. 81 
•NorMal Tarmination' 
'Tarmination Condition' 
'Tap* Statua Alart' 
'Function Rojact' 
'Racevorabla Error - Tac 
'Racovarabia Error - Tac 
' Unracovarabia Error* 
'Fatal Controllar Error' 



Poaition Ona Racord Dotm' 
Uaa Not Movad' 



1I.2I.SI.4I 

'Intamal Oiaoneatic Failura' 
' Raaarvad' 

'Sua Intarfaea or Sanity Chack Error' 
' Raaarvad' 



PRIPKT 



PRINT THE ADDRESS/CONTENTS OF COmANO PACKET 



809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
619 
820 
821 



!thIS routine PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
I THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 



in#>UT: 

t 

t 

I 

t 

i 

i 

t 



RO NUMBER OF WORDS IN PACKET 

RS HIGH ORDER COMMAND PACKET ADDRESS 

R4 ADDRESS OF COMMAND PACKET 

NOTE: R5 IS IGNORLO IF THE KTENABLE FLAG IS CLEAR. 



C4 



SEQ 041 



B22 007200 
82S 007200 

824 007204 

825 007206 

826 007212 

827 007214 

828 007216 

829 007220 

830 007222 

831 007224 

832 007226 
007226 
007230 
007232 
007236 
007242 
007244 
007246 

833 007252 

834 007254 

835 007256 

836 007260 

837 007264 
836 007266 

839 007270 

840 007272 
007272 
007274 
007276 
007302 
007306 
007310 
007312 

841 007316 

642 007320 

643 007322 

644 007324 
645 

646 007326 

647 007364 
648 

649 
850 
851 
652 
653 
654 
655 
656 
657 
656 
659 
660 
661 
662 
663 
864 



010005 
005737 
001001 
005005 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010004 
005001 
012402 

010246 
010146 
012746 
012746 
010600 
104414 
062706 
005201 
020105 
002762 
000207 

045 
045 



003132" 



PRIPKTi 



10*1 



007364' 
000003 



000010 



017130' 



007326' 
000003 



000010 



116 
116 



SAVREG 

nov 

TST 
BNE 
CLR 
HOV 
MOV 
ROL 
ROL 

PRINTS 
NOV 

nov 

NOV 

nov 
nov 

TRAP 
ADD 

nov 

BEQ 

nov 

JSR 

nov 
aR 
nov 

PRINTS 

nov 

NOV 

NOV 

NOV 

NOV 

TRAP 

AOO 

INC 

CNP 

BLT 

RTS 



045 PKTFRN: .ASCIZ 
045 PKTAOO: .ASCIZ 
.EVEN 



151: 



201: 
2St: 



R0.R5 
KTENABi-E 
10* 
R3 

R3.R1 
R4.R0 
RO 
Rl 

•PKTA0D.R1.R4 

R4,-(SP) 

Rl.-(SP) 

•PKTAOO. -(SP) 

•3.-(SP) 

SP.RO 

C«PNTB 

•10. SP 

R3.R0 

20t 

R4.R1 

PC.SETNAP 

R0.R4 

Rl 

(R4)*.R2 

•PKTFRN, R1.R2 

R2.-(SP) 

Rl.-(SP) 

•PKTFRN, -CSP) 

•3.-(SP) 

SP.RO 

CIPNTB 

•10. SP 

Rl 

R1.R5 

25t 

PC 



I SAVE THE REGISTERS 

I SAVE NO. OF WORDS IN PACKET 

I ABOVE 28K UNDER TEST? 

I BR IF YES 

I SET HIGH ORDER ADDRESS TO 0 

I COPY HIGH ORDER ADDRESS 

iGET LOWER ADDRESS 

t SHIFT BIT 15 INTO C BIT 

iPND INTO HIGH ORDER. 

tt nUJ PACKET ADDRESS 



I GET HIGH ORDER ADDRESS 

I BR IF NOT ABOVE 28K. 

iGET LOW ORDER ADDRESS 

I SETUP PAR6 NAPPING FOR 18 BIT ADDRESS 

iGET RETURNED PAR6 ADDRESS BIAS 

I SAVE UQRO NUMBER 

iGET PACKET CONTENTS 

t PRINT THE DATA 



iNEXT WORD NUMBER 
•DONE ALL PACKET W0P0S7 
iLOOP TILL ALL DONE 
I RE TURN 



'««M Paek«t Word •«01#A ■ «06' 
■«IN«A Pack«t Addr«M • «01«05' 



.SBTTL PRIBXOR - PRINT EXPO. RECV AND XOR BYTE 



I » 



iPRINT EXPECTED DATA. RECEIVED DATA. AND XOR OF THE DATA BYTE 
I THIS ROUTINE IS NORNALLY CALLED ONLY FOR PRINT ROUTINES. 



I INPUTS: 
I 

I Rl 
I R2 

! OUTPUT: 
t 



RECEIVED DATA 
EXPECTED DATA 



D4 



SEQ 042 



865 

867 
868 

869 007422 

870 007422 

871 007426 

872 007430 

873 007440 

874 007444 

875 007446 

876 007450 

877 007452 
007452 
007454 
007456 
007460 
007464 
007470 
007472 
007474 

878 007500 

879 007502 
880 

881 007504 

682 

883 

884 

885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 

903 007552 

904 007552 

905 007556 

906 007560 

907 007570 
007570 
007572 
007574 
007576 
007602 
007606 



RO 



XOR OF EXPECTED/RECEIVED DATA 



010203 

012700 177400 
040001 
040002 
040003 

010346 
010146 
010246 

012746 007504* 
012746 000004 
010600 
104414 

062706 000012 

010300 

000207 



PRIBXOR:: 

SAVREG 

nov 

XOR 

nov 

BIC 
SIC 
BIC 

PRXNTB 

nov 
nov 
nov 
nov 
nov 
nov 

TRAP 
ADO 

nov 

RTS 



R2.RS 
R1.R3 

•tC<377>.R0 
RO.Rl 
R0,R2 
R0.R3 

•X0R6F0R.R2.R1 

R3,-(SP) 

Rl.-(SP) 

R2.-CSP) 

#X0R6F0R.-(SP) 

•4.-(SP) 

SP.RO 

CIPNTB 

•12. SP 

R3.R0 

PC 



I SAVE THE REGISTERS 
•EXPECTED DATA 
iFORn THE EXCLUSIVE OR 
iBrTE HASK 
I SAVE LOU BrTE RECV 
I SAVE LOW BYTE EXPO 
•SAVE LOU BYTE XOk 
.R3 I PRINT THE HESSAGE 



iRO HAS XOR ON RETURN 
{RETURN TO CALLER 



045 



116 



045 XORBFOR: 



.EVEN 



.ASCIZ '«MA EXPO: tf03KA RECV: «0S«A XOR: «03- 



.SBTTL PRIXOR • PRINT EXPO. RECV AND XOR 



PRINT EXPECTED DATA. RECEIVED DATA. AND XOR OF THE TUO 
THIS ROUTINE IS NORHALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS: 



Rl RECEIVED DATA 

R2 EXPECTED DATA 



OUTPUT: 



PRIXOR: 



010203 



010346 
010146 
010246 

012746 007622' 
012746 000004 
010600 



RO XOR OF EXPECTED/RECEIVED DATA 



SAVREG I SAVE THE REGISTERS 

nov R2.R3 {EXPECTED DATA 

XOR R1.R3 iFORH THE EXCLUSIVE 

PRINTB #X0Rr0R.R2.Rl.R3 {PRINT THE HESSAGE 

nov R3.-CSP) 

nov Rt,-(SP) 

nov R2.-(SP) 

nov #X0RF0R. (SP) 

nov •4.-(SP) 

nov SP.RO 



OR 



E4 



rSvS - GLOBAL AREAS MACRO H1115 07 TEB 84 10:56 
PRIXOR PRINT EXPO, RECV AND XQR 



SEO 045 



007610 
007612 
906 007616 
909 007620 
910 

911 007622 

912 

913 

914 

915 

916 

917 

916 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 007670 

929 007670 

930 007674 
931 

932 
933 
934 
935 
936 
937 
936 
939 
940 
941 
942 
943 
944 
945 

946 007676 

947 007676 

948 007702 
007702 
007704 
007710 
007714 
007716 
007720 

949 007724 
950 

951 007726 

952 

953 

954 

955 

956 



104414 

062706 000012 

010300 

000207 



TRAP 
ADO 
MOV 
RTS 



CIPNTB 
•12. SP 
R3.R0 
PC 



iRO HAS XQR ON RETURN 
I RE TURN TO CALLER 



045 



116 



045 XORFOR: 



'MWA EXPO: «I06«A RECV: tf06«A XOR: «06' 
SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 



.ASCIZ 
.EVEN 



ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



INPUTS: 



RO OCTAL VALUE TO CONVERT 

Rl TABLE or POINTERS TO ASCII EQUIVALENT 



PRIEQU: 



000207 



SAVREG 
RTS PC 



I SAVE THE REGISTERS 
{RETURN TO CALLER 



.SBTTL PRIRAM - PRINT RAM ADDRESS 



t PRINT CONTROLLER RAM ADDRESS. 

I THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



I INPUTS: 



t 
I 
I 

PRIRAM: 



010446 

012746 007726' 
012746 000002 
010600 
104414 

062706 000006 
000207 



045 



116 



045 RAMFOR: 



( ♦ 



R4 



SAVREG 

PRINTS 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

.ASCIZ 
.EVEN 



RAM ADDRESS 



•RAMFOR. R4 

R4,-(SP) 

•RAMFOR. -(SP) 

♦2.-(SP) 

SP.RO 

CIPNTB 

•6.SP 

PC 



iSAVE R1-R5 UNTIL NEXT RETURN 
I PRINT RAH AOOR''SS IN ERROR 



i RE TURN 



'fUmtK CONTROLLER RAM ADDRESS - «>06' 



.SBTTL PRIAOD - PRINT MEMORY ERROR ADDRESS 



F4 



rSVS GLOBAL AREAS MACRO N1113 07-FEB-84 10:56 
PRIAOO PRINT MEMORY ERROR ADDRESS 



SEQ 044 



957 
956 
959 
960 
961 
962 
96S 
964 
965 
966 
967 
966 
969 
970 
971 
972 
973 
974 



975 
976 
977 
978 
979 
960 
961 
962 
963 
984 
985 
966 
967 
966 
969 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 



007770 
007770 
007774 
010000 
010004 
010006 
010010 
010012 
010012 
010014 
010016 
010022 
010026 
010030 
010032 
010036 

010040 



010104 
010104 
010110 
010114 



010120 
010120 
010122 
010126 
010132 
010134 
010136 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
IMPLICIT INPUTS 



PRIADD: 



013700 
013701 
010102 
006101 
006100 

010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 

045 



013702 
013701 



010146 
012746 
012746 
010600 
104414 
062706 



002234' 
002236' 



010040' 
000003 



000010 
116 



ERRHI 


- HIGH ORDER 


ADDRESS 


ERRLO 


- LOU ORDER ADDRESS 


SAVREG 




iSAVE Rl-RS UNTIL NEXT 


MOV 


ERRHI. RO 


iGET HIGH ADORESSS 


MOV 


ERRLO. Rl 


iGET LOW ADDRESS 


MOV 


R1.R2 


iCOPY LOU ADDRESS 


ROL 


Rl 


1 SHIFT BIT IS TO C BIT 


ROL 


RO 


1 SHIFT INTO HIGH ORDER 


PRINTS 


•PRIA0.R0.R2 


iPRINT MEMORY ADDRESS 


MOV 


R2.-(SP) 




MOV 


RO,.(SP) 




MOV 


•PRIAO.-(SP) 




NOV 


•3.-(SP) 




MOV 


SP.RO 




TRAP 


CIPNTB 




ADO 


•10. SP 




RTS 


PC 


•RETURN 


.ASCIZ 


'KNtfA MEMORY 


ERROR ADDRESS - «01«0S' 


.EVEN 







.SBTTL PRITAOO - PRINT MEMORY TEST ADDRESS 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



IMPLICIT IIMTS 

ERRHI 
ERRLO 



HIGH ORDER ADDRESS 
LOU ORDER ADDRESS 



PRITAOO: 



002234* 
002236' 



010166' 
000002 



000006 



SAVREG 

MOV 

MOV 

I MOV 

I ROL 

I ROL 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 



ERRHI. R2 

ERRLO.Rl 

R1.R2 

Rl 

RO 

•PRITO.Rl 

Rl.-(SP) 

•PRITO.-(SP) 

•2.-(SP) 

SP.RO 

CtPNTB 

•6.SP 



tSAVE Rl-RS UNTIL NEXT RETURN 

iGET HIGH ADORESSS 

iGET LOU ADDRESS 

I COPY LOU ADDRESS 

I SHIFT BIT IS TO C BIT 

I SHIFT INTO HIGH ORDER 

•PRINT MEMORY ADDRESS LOU IN ERROR 



G4 



TSV5 - GLOBAL AREAS MACRO Ml 115 07 -FEB -84 10:58 
PRITAOD - PRINT MEMORY TEST AOORESS 



SEQ 045 



1001 


010142 










PRINTS 


•PRIT1.R2 


1 PRINT MEMORY AOORESS 




010142 


010246 








MOV 


R2.-(SP) 




010144 


012746 


010231' 






MOV 


♦PRITl. -CSP) 






010150 


012746 


000002 






MOV 


♦2.-(S»») 






010154 


010600 








MOV 


SP.RO 






010156 


104414 








TRAP 


CtPNTB 






010160 


062706 


000006 






ADD 


«6.SP 




1002 


010164 


000207 








RTS 


PC 


1 RETURN 


1003 


















1004 


010166 


045 


116 


045 


PRITO: 


.ASCIZ 


'MMA MEMORY 


TEST ADDRESS LOU > «06' 


1005 


010231 


045 


116 


045 


PRITl: 


.ASCIZ 


'MMA MEMORY 


TEST ADDRESS HIGH - «06' 


1006 












.EVEN 





1007 
1006 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 



.SBTTL SPACE 



SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



i ♦ 



ROUTINE TO ISSUE A SPACE RECORDS 
COMMAND (FORWARD OR REVERSE) 



INPUT: 



RS NUr«ER OF RECORDS TO BE SPACED OVER 

BITIS CONTROLS DIRECTION 

BIT15 • 0 IS FORWARD 

BIT15 - 1 IS REVERSE 
R5 FIRST DEVICE UNIBUS AOORESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



OUTPUT: 



CARRY SET - SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 



RO THE CONTENTS OF R4 IS MOVED TO RO 

IMPLICIT OUTPUT: 

TAPE HAS BEEN MOVEO 
SIDE EFFECTS: 



010276 
0L0276 
010302 
010310 
010316 
010320 
010322 
010326 



SPACE: 



012737 
012737 
005703 
100403 
010337 
000407 



000764 010470' 
140010 010460' 



010462' 



SAVREG 

MOV 

MOV 

TST 

BMI 

MOV 

BR 



•500..SDELAY 

•140010.801 

R3 

St 

R3.90t 

lot 



I SAVE THE GENERAL REGISTERS 
tSET UP DELAY 

tSET UP COMMAND. SPACE FORWARD 

i CHECK FOR DIRECTION 

iBR. IF REVERSE INDICATED 

iLOAD UP NUMBER OF RECORDS TO SPACE 

iGO DO COMMAND 



TSV3 
SPACE 



GLOBAL AREAS 
- SPACE RECl 



OROS CpSSuARi^iNO SEvlllE^cifeXSo 



H4 



SEQ 046 



1052 


010330 


042703 


100000 


5»: 


BIG 


«6IT15,R3 


1053 


010334 


010337 


010462' 




MOV 


R3.90I 


1054 


010340 


052737 


000400 010460' 




BIS 


•BITS. 801 


1055 


010346 


012704 


010460' 


10»: 


nov 


•80$. R4 


1056 


010352 


010465 


000000 




nov 


R4.TSDBCR5) 


1057 


010356 


004737 


016060' 


15>: 


JSR 


PC.UAITF 


1058 


010362 


103420 






BCS 


201 


1059 010364 








DELAY 


250 




010364 


012727 


000250 




nov 


•250. CPO* 




010370 


000000 






.WORD 


0 




010372 


013727 


002116' 




nov 


L»OLY.(PC). 




010376 


000000 






.UORO 


0 




010400 


005367 


177772 




DEC 


-6CPC) 




010404 


001375 






BNE 


.-4 




010406 


005367 


177756 




DEC 


-22CPC) 




010412 


001367 






BNE 


.-20 


1060 010414 


005337 


010470' 




DEC 


SDELAY 


1061 


010420 


001356 






BNE 


151 


1062 


010422 


000411 






BR 


601 


1063 


010424 


016501 


000002 


20<: 


nov 


TSSR(R5).R1 


1064 


010430 


012702 


000200 




nov 


•SSR.R2 


1065 


010434 


020201 




251: 


cnp 


R2.R1 


1066 


010436 


001401 






BEQ 


401 


1067 


010440 


000402 






BR 


601 


1068 


010442 


000261 




401: 


SEC 




1069 


010444 


000401 






BR 


70$ 


1070 


010446 


000241 




601: 


CLC 




1071 


010450 






701: 






1072 


010450 


010400 






nov 


R4,R0 


1073 


010452 


000207 






RTS 


PC 



1074 

1075 
1076 
1077 
1078 
1079 

1081 010454 

1083 

1084 

1085 010460 000000 
1086 

1087 010462 000000 

1088 010464 000000 

1089 010466 000000 

1090 010470 000000 
1091 

1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 



I CLEAR DIRECTION BIT 
iLOAO UP NUnBER OF RECORDS TO SPACE 
I SET REVERSE BIT IN COTtlAND PACKET 
I SET UP R4 WITH PACKET ADDRESS 
I SEND OUT COnnANO 
lUAIT FOR SSR 
iBR. IF SSR IS SET AND OK 
I DELAY ABOUT .25 SECONDS 



iBUnP DELAY COUNTER DOWN 

I BR. IF nORE DELAY 

I BR IF TROUBLE CARRY - CLEAR 

I READ TSSR 

I SET UP EXPECTED 

{ARE THEY OK 

tBR. IF EQUAL - OK 

I TROUBLE EXIT 

I SET CARRY NO TROUBLE 

lEXIT 

(CARRY CLEAR - ERROR 

tPASS PACKET ADDRESS 
{RETURN 



PACKET FOR SPACE CONNAND 

.BLKB 10-<.-TSV2£7> 

COnnAND UORD 
801: .UORD 

iNUnBER OF RECORDS TO BE SPACED OVER UORD 
901: .UORD 

.UORD 

.UORD 
SDELAY: .UORD 



.EVEN 



.SBTTL URTCHR 



(DEL4Y COUNTER 



URITE CHARACTERISTICS COHHANO 



t ♦ 



ROUTINE TO ISSUE A URITE CHARACTERISTICS 
COHHANO SO THAT OTHER COHHANOS UILL BE ACCEPTED 

INPUT: 



14 



TSV3 • GLOBAL AREAS HACRO M1113 07-FEB-84 10:58 
URTCHR - URITE CHARACTERISTICS COMMAND 



SEQ 047 



1105 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 



010472 
010472 
010476 
010502 
010506 
010512 
010516 
010520 
010522 
010526 
010532 
010536 
010540 
010544 
010546 
010550 
010552 
010556 
010560 
010566 
010570 
010574 
010574 
010602 
010604 
010610 
010610 
010612 
010614 
010616 
010622 



R4 ADDRESS OF PACKET FROM TEST 

R5 FIRST DEVICE UNIBUS ADDRESS 

REQUIRES A CALL TO SQFINIT BE DONE PREVIOUSLY 



OUTPUT: 



RO TSSR CONTENTS 

CARRY SET - URITE CHARACTERISTICS COMMAND OK 
CLR - URITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 

SOFTWARE SWITCHES SET AS FOLLOWS: 

EXTFEA - EXTENDED FEATURES PRESENT 
BENBSW - BUFFER ENABLE SWITCH ON OR OFF 



005037 
005037 
010465 
004737 
103401 
000435 
016501 
012702 
032701 
001402 
052702 
020201 
001401 
000421 
062704 
011403 
032763 
001402 
005237 

032763 
001402 

005237 

000261 
000401 
000241 
016500 
000207 







(SIDE 


EFFECTS: 








WRTCHR: : 










SAVREG 










CLR 


BCMQCU ml 








CLR 


HA 1 r cn 


www 




10$: 


MOV 


R4 T^DBfR^) 


016146* 






JSR 


PC.CHKTSSR 








BCS 


20* 








BR 


60* 


000002 




20$: 


MOV 


TSSR(R5),R1 


000200 






MOV 


*SSR.R2 


000100 






BIT 


#0FL.R1 








BEQ 


25* 


000100 






BIS 


•0FL.R2 






251: 


CMP 


R2.R1 








BEQ 


40* 








BR 


60* 


000010 




40$: 


ADO 


t8..R4 








MOV 


(R4).R3 


000200 


000012 




BIT 


*X2.EXTF.XST2(R3) 








BEQ 


45* 


002224' 






INC 


EXTFEA 






4S«: 






000100 


000012 




BIT 


•X2.BUFE,XST2(R3) 








BEQ 


50* 


002226' 






INC 


BENBSW 






50$: 












SEC 










BR 


70* 






60»: 


CLC 




000002 




70$: 


MOV 


TSSRCR5),R0 








RTS 


PC 



.SBTTL REWIND 



I SAVE THE GENERAL REGISTERS 
CLEAR BUFFER ENABLE SWITCH 

{CLEAR EXTENDED FEATURES SW SWITCH 
tSEND OUT COMMAND 
{WAIT FOR SSR 
(BR. IF SSR IS SET AND OK 
iBR IF TROUBLE CARRY - CLEAR 
I READ TSSR 
tSET UP EXPECTED 
{WAS OFF LINE SET IN TSSR 
tBR. IF NO OFL SET 
iMAKE THEM LOOK ALIKE 
{ARE THEY OK 
tBR. IF EQUAL - OK 
t TROUBLE EXIT 

iPOINT TO WRT CHARA DATA PACKET 
{GET ADDRESS OF MESSAGE BUFFER 
{EXTENDED FEATURES BIT SET? 
tBR IF NO 

{SET EXTENDED FEATURES SW SWITCH 

{BUFFER ENABLE SWITCH S.ET 

tBR. IF SWITCH NOT SET 
tSET SOFTWARE SWITCH FOR ENABLED 

tSET CARRY NO TROUBLE 
tEXIT 

{CARRY CLEAR - ERROR 
t RETURN TSSR CONTENTS 
t RETURN 



POSITION TAPE (REWIND) COMMAND 



J4 



TSV3 - GLOBAL AREAS MACRO HlllS 07'FEB 84 10:58 
REMIND POSITION TAPE (REMIND) COMMAND 



SEQ 048 



1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1175 
1174 
1175 
1176 
1177 
1176 
1179 
1160 
1161 
1182 
1163 
1164 
1185 
1186 
1167 
1188 
1169 
1190 
1191 
1192 
1193 
1194 



1195 
1196 
1197 
1198 
1199 
1200 
1201 
1203 
1205 
1206 
1207 
1208 
1209 
1210 



010624 
010624 
010630 
010634 
010640 
010644 
010650 
010652 
010652 
010656 
010660 
010664 
010666 
010672 
010674 
010700 
010702 
010704 
010706 
010710 
010712 



010714 
010720 
010720 
010722 



THIS RCJTINE WILL REWIND THE SELECTED TAPE. 

CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE: 



00 A SOFT INIT 

DO A WRITE CHARACTERISTICS 



JSR 



INPUT: 



R5 



OUTPUT 



RO 



REWIND: : 



012704 
010465 
012703 
004737 
103417 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
000241 
010400 
000207 



102010 
000000 



010720' 
000000 
000550 
016060' 



000372 
002116' 
177772 
177756 



101 ! 



201: 



RWPACK : 



SAVREG 

MOV 

MOV 

MOV 

JSR 

BCS 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

CLC 

MOV 

RTS 



.WORD 
.WORD 



PC. RE WIND 



FIRST DEVICE UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



•RWPACK. R4 

R4.TS0B(R5) 

♦360..R3 

PC.WAITF 

20« 

250. 

#250. .(PC). 
0 

LIDL';.(PC)» 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 
R3 
10 « 

R4,R0 
PC 



iSAVE R1-R5 UNTIL NEXT RETURN 

iCET PACKET ADDRESS 

iSENO PACKET ADDRESS TO EXECUTE 

t ENOUGH TIME FOR 2400' REEL TO REWIND 

iWAIT FOR SSR TO SET 

: LEAVE WHEN SSR IS SET 

iWAIT FOR .25 SECONDS 



.BLKB lO-<.-TSV2£7> 



102010 
0 



iBUMP COUNTER DOWN 
iKEEP GOING 

(CLEAR CARRY TO SET ERROR 
:PASS THE PACKET ADDRESS 
(RETURN 



iPOSTION COMMAND (REWIND) 
(NOT USED 



.SBTTL CKRAM - COMPARE RAM TO I/O PACKET 



I<4 



TSV3 - GLOBAL AREAS HACRO MlllS 
CKRAn • COMPARE RAH TO I/O PACKET 



07 -FEB -84 10:58 



SEQ 0*9 



1211 






1212 






1213 






1214 






1215 






1216 






1217 






1218 






1219 






1220 






1221 






1222 






1223 






1224 






1225 






1226 






1227 






1228 






1229 






1230 






1231 






1232 






1233 






1234 






1235 






1236 






1237 






1238 






1239 


010724 




1240 


010724 




1241 


010730 


012701 


1242 


010734 


012702 


1243 


010740 


005003 


1244 


010742 


004737 


1245 


010746 


112765 


1246 


010754 


004737 


1247 


010760 


010265 


1248 


010764 


004737 


1249 


010770 


116511 


1250 


010774 


122124 


1251 


010776 


001401 


1252 


011000 


005203 


1253 


011002 


005202 


1254 


011004 


020227 


1255 


011010 


003761 


1256 


011012 


005703 


1257 


011014 


001402 


1258 


011016 


000241 


1259 


011020 


000401 


1260 


011022 


000261 


1261 


011024 


012737 


1262 


011032 


000207 


1263 






1264 






1265 






1266 






1267 







ROUTINE TO READ THE FIRST 8 BYTES FROH RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



INPUT: 



R4 

R5 



OUTPUT : 



CARRY 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 
SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



I- 

CKRAM: 



002240' 
000201 

016146' 

000000 

016146' 

000000 

016146' 

000000 



000210 



000000 



10>i 



20>: 



000010 



30*: 

002300' 50*: 



;SAVE THE GENERAL REGISTERS 
s'WDRESS TO SAVE THE RAM DATA 

BYTE ADDRESS OF FIRST RAM DATA 

CuEAR THE ERROR FLAG 

WAIT FOR SSR 

SET MAINTENANCE MODE 

WAIT FOR SSR TO SET 

SELECT NEXT RAM ADDRESS 

WAIT FOR SSR TO SET 

READ THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH IF OK 

SET ERROR FLAG 

ADDRESS OF NEXT RAM LOCATION 

REACHED END YET ? 

BRANCH TILL ALL READ 

WAS AN ERROR FOUND ? 

BRANCH IF NOT 

CLEAR CARRY TO SHOU ERROR 

AND EXIT 

SHOU GOOD COMPARE 

SETUP RAMSIZ FOR PRAMPkT ROUTI ' 

RETURN 



.SBTTL CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 



SAVREG 




MOV 


•RAMDATA. Rl 


MOV 


«RMPKTBEG.R2 


CLR 


R3 


JSR 


PC.CHKTSSR 


MOVB 


♦O.TSDB(R5) 


JSR 


PC.CHKTSSR 


MOV 


R2.TSDB(RS) 


JSR 


PC.CHKTSSR 


MOVB 


TSBACR5).CR1) 


CMPB 


CR1)».(R4)» 


BEQ 


20* 


INC 


R3 


INC 


R2 


CMP 


R2.«RMPKTENP 


BLE 


10* 


TST 


R3 


BEQ 


30* 


CLC 




BR 


50* 


SEC 




MOV 


06. .RAMSIZ 


RTS 


PC 



L4 



TSV3 GLOBAL AREAS MACRO M1113 07 -FEB -84 10:56 
CKRAna - COMPARE RAM TO I/O CHARACTERISTICS DATA 



SEQ 050 



1266 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1261 
1262 
1263 
1284 
1265 
1266 
1287 
1266 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1296 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1306 
1309 
1310 
1311 
1312 
1313 
1314 
1515 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 



ROUTINE TO READ THE FIRST 6 OR 10 BYTES FROM RAM 

MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 



INPUT 1 



R4 

R5 



OUTPUT: 



CARRY 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 
DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 
SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



011034 






CKRAM2: 








011034 








SAVREG 




iSAVE THE GENERAL REGISTERS 


011040 


012701 


002240' 




MOV 


MAMDATA.Rl 


i ADDRESS TO SAVE THE RAM DATA 


011044 


012702 


000167 




MOV 


«RMCHBEG.R2 


iBYTE ADDRESS OF FIRST RAM DATA 


01 1050 


005003 






CLR 


R3 


i CLEAR THE ERROR FLAG 


011052 


004737 


016146' 




JSR 


PC.CHKTSSR 


iUAIT FOR SSR 


011056 


112765 


000000 


000000 


MOVB 


«0.TS0B(R5) 


(SET MAINTENANCE MODE 


011064 


004737 


016146' 


101: 


JSR 


PC.CHKTSSR 


iUAIT FOR SSR TO SET 


011070 


010265 


000000 




MOV 


R2.TSDB(R5) 


(SELECT NEXT RAM ADDRESS 


011074 


004737 


016146' 




JSR 


PC.CHKTSSR 


(WAIT FOR SSR TO SET 


011100 


116511 


000000 




MOVB 


TSBA(R5).(R1) 


(READ THE RAM DATA 


011104 


122124 






CMPB 


CR1)».(R4)» 


(COMPARE TO EXPECTED 


011106 


001401 






BEQ 


20) 


(BRANCH IF OK 


011110 


005203 






INC 


R3 


(SET ERROR FLAG 


011112 


005202 




201: 


INC 


R2 


(ADDRESS OF NEXT RAM LOCATION 


011114 


012737 


000010 


002300' 


MOV 


«8.. RAMSIZ 


(ASSUME EXTFEA NOT SET 


011122 


005737 


002224' 




TST 


EXTFEA 


(IS THE SOFTWARE EXTENDED FEATURES SET 


011126 


001407 






BEQ 


251 


(BR. IF NOT SET 


011130 


012737 


000012 


002300' 


MOV 


«10. .RAMSIZ 


(SET RAMSIZ FOR EXTEND FEATURES 


011136 


020227 


000200 




CMP 


R2.«RMCHEND 


(AT END OF EXTENDED BUFFER 


011142 


003750 






BLE 


101 


(BR. IF NOT AT END YET 


011144 


000403 






BR 


27$ 


(AT END BRANCH 


011146 


020227 


000176 


25<: 


CMP 


R2.«RMCHEND-2 


(REACHED END YET ? 


011152 


003744 






BLE 


10$ 


(BRANCH TILL ALL READ 


011154 


005703 




27$: 


TST 


R3 


(WAS AN ERROR FOUND ? 


011156 


001402 






BFQ 


30$ 


(BRANCH IF NOT 


011160 


000241 






CLC 




(CLEAR CARRY TO SHOW ERROR 


011162 


000401 






BR 


50$ 


(AND EXIT 


011164 


000261 




SOI: 


SEC 




(SHOW GOOD COMPARE 


011166 


000207 




501: 


RTS 


PC 


(RETURN 



M4 



TSV3 - 
CKMSG 



GL 



SEQ 051 



1325 
1326 
1527 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1336 
1339 
1340 
1541 
1342 
1343 
1344 
1345 
1346 
1347 
1346 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1356 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1366 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1360 
1361 



.SBTTL CKMSG 



COMPARE WRITE CHAR. MESSAGE BUFFERS 



ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPO AND RECV 
i BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
{ERROR PRINT ROUTINES. 



J INPUT 1 



; OUTPUT 1 
i 
t 



RO 
Rl 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPO MESSAGE BUFFER ADDRESS 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR -MESSAGE BUFFERS DON' T MATCH 



; IMPLICIT OUTPUT: 

1 EXPMSG 

; RECMSG 

i RCVHIADD 

: RCVLOAOO 

: 



BUFFER IS SET TO EXPO DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



011170 






CKMSG:: 








011170 








SAVREG 




:SAVE Rl-RS UNTIL NEXT RETURN 


011174 


010037 


002302' 




MOV 


RO. RCVHIADD 


iSAVE RECV HIGH ADDRESS 


011200 


010137 


002304* 




MOV 


Rl.RCVLOAD 


tSAVE RECV LOU ADDRESS 


011204 


005737 


003132' 




TST 


KTENABLE 


(TESTING ABOVE 26K? 


011210 


001403 






BEQ 


10« 


iBR IF NO 


011212 


004737 


017130' 




JSR 


PC.SETMAP 


(RETURN ADDRESS BIASED TO PAR6 IN RO 


011216 


010001 






MOV 


RO.Rl 


iGET RETURNED ADDRESS BIASED TO PAR6 


011220 


005004 




101: 


CLR 


R4 


lUORD IN BUFFER 


011222 


005003 






CLR 


R3 


(CLEAR ERROR SEEN FLAG 


011224 


010205 






MOV 


R2.R5 


iGET EXPO BUFFER ADDRESS 


011226 


011264 


002320' 


151: 


MOV 


(R2).EXPMSG(R4) 


tSAVE EXPO FOR ERROR REPORT 


011232 


011164 


002464' 




MOV 


(R1).RECMSG(R4) 


(SAVE RECV FOR ERROR REPORT 


011236 


022221 






CMP 


(R2)».(R1)» 


iEXPD EQUAL RECV? 


011240 


001401 






BEQ 


25 » 


iBR IF YES 


011242 


005203 






INC 


R3 


iSET ERROR SEEN FLAG 


011244 


062704 


000002 


25<: 


ADD 


«2.R4 


(POINT TO NEXT WORD ADDRESS 


011250 


020427 


000014 




CMP 


R4.«14 


(DONE FIRSi 7 WORDS? 


011254 


003764 






BLE 


15> 


(BR IF NO 


011256 


032765 


000200 000012 




BIT 


♦X2.EXTF.XST2CR5 


)(IS EXTENDED FEATURES SET IN EXPO? 


011264 


001403 






BEQ 


50 » 


( BR IF NO 


011266 


020427 


000016 




CMP 


R4.«16 


(DONE EXTENDED FEATURES WORD? 


011272 


003755 






BLE 


15< 


(BR IF NO 


011274 


005703 




501: 


TST 


R3 


(ANY ERRORS SEEN? 


011276 


001402 






BEQ 


551 


(BR IF NO 


011300 


000241 






CLC 




(SET FAILURE 


011302 


000401 






BR 


60 1 




011304 


000261 




551: 


SEC 




IsET SUCCESS 


011306 


000207 




60»: 


RTS 


PC 


(RETURN 










.SBTTL 


CKMSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 



N4 



TSV3 - GLOBAL AREAS MACRO M1113 07-FEB 84 10:58 

CKMSG2 COMPARE EXPO RECV MESSAGE BUFFERS 



SEQ 052 



1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 



ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



If«>UT: 



RO 
Rl 
R2 
R3 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOU ORDER ADDRESS 
EXPO MESSAGE BUFFER ADDRESS 
NUMBER OF BYTES TO COMPARE 



OUTPUT : 



CARRY 



SET 
CLR 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIAOO 
RCVLOADO 



MESSAGE BUFFERS MATCH 
MESSAGE BUFFERS DON'T MATCH 



BUFFER IS SET TO EXPO DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOU ORDER ADDRESS OF RECV 



140S 


011310 






CKMSG2: 








1409 


011310 








SAVREG 




{SAVE R1-R5 UNTIL NEXT RETURN 


1410 


011314 


020327 


000144 




CMP 


R3.«RECMSG -EXPMSG iSaO IS COUNT ABOVE MAX ALLOUED? 


1411 


011320 


003412 






BLE 


51 


iSaO BR IF NO 


1412 


011322 


012703 


000144 




MOV 


«RECMSG -EXPMSG . R3 : SfiO 


1413 


011326 








PRINTF 


«OEBUGMSG 


;88D 




011326 


012746 


011442' 




MOV 


«OEBUGMSG.-(SP) 




011332 


012746 


000001 




MOV 


♦l.-CSP) 






011336 


010600 






MOV 


SP.RO 






011340 


104417 






TRAP 


CIPNTF 






011342 


062706 


000004 




ADD 


#4 SP 




1414 


011346 


010037 


002302' 


51: 


MOV 


Ro! RCVHIAOO 


:SAVE RECV HIGH ADDRESS 


1415 


011352 


010137 


002304' 




MOV 


Rl.RCVLOAD 


iSAVE RECV LOU ADDRESS 


1416 


011356 


005737 


003132' 




TST 


K TENABLE 


{TESTING ABOVE 28K? 


1417 


011362 


001403 






BEQ 


10$ 


iBR IF NO 


1410 


011S64 


004737 


017130' 




JSR 


PC.SETMAP 


{RETURN ADDRESS BIASED TO PAR6 IN RO 


1419 


011370 


010001 






MOV 


RO.Rl 


{GET RETURNED ADDRESS BIASED TO PAR6 


1420 


011372 


005004 




101: 


CLR 


R4 


(UORO IN BUFFER 


1421 


011374 


005005 






CLR 


R5 


(CLEAR ERROR SEEN FLAG 


1422 


011376 


111264 


002320' 


15(: 


MOVB 


CR2).EXPMSGCR4) 


(SAVE EXPO FOR ERROR REPORT 


1423 


011402 


111164 


002464' 




MOVB 


CR1).RECMSGCR4) 


(SAVE RECV FOR ERROR REPORT 


1424 


011406 


122221 






CMPB 


CR2)*,CRl)* 


(EXPO EQUAL RECV? 


1425 


011410 


001401 






BEQ 


25$ 


iBR IF YES 


1426 


011412 


005205 






INC 


R5 


(SET ERROR SEEN FLAG 


1427 


011414 


062704 


000001 


25$: 


ADO 


«1.R4 


(POINT TO NEXT BYTE 


1428 


011420 


020403 






CMP 


R4.R3 


(DONE ALL BYTES? 


1429 


011422 


002001 






BGE 


50$ 


(BR IF YES 


1430 


011424 


000764 






BR 


15$ 


(DO NEXT BYTE 


1431 


011426 


005705 




50$: 


TST 


R5 


(ANY ERRORS SEEN? 


1432 


011430 


001402 






BEQ 


55$ 


(BR IF NO 


1433 


011432 


000241 






CLC 




(SET FAILURE 



B5 



011454 


000401 






BR 


601 1 


0114S6 


000261 






55* : SEC 


iSET SUCCESS 


011440 


000207 






601: RTS 


PC 1 RETURN 


01144? 


120 


122 


117 


OEBUGHSG: 


.ASCIZ 'PROGRAM INTERNAL ERROR 


011552 


045 


116 


045 


FEROI: .ASCII 


/«NtfA **•/ 


011545 


040 


040 


124 


ERD1: .ASCIZ 


/ TSSR ERROR CODE REC'O • / 


011576 


056 


056 


056 


SinSG: .ASCIZ 


/ AFTER DOING SOFT INIT/ 


011651 


124 


105 


125 


TINERR: .ASCIZ 


/TEST: .../ 



TSV5 • GLOBAL AREAS MACRO M1115 07FEB-S4 10:58 
CKMSG2 COMPARE EXPO RECV MESSAGE BUFFERS 

1454 
1455 
1456 
1457 
1458 
1459 
1440 
1441 
1442 
1445 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1455 
1454 
1455 
1456 
1457 
1458 
1459 
1460 



SEQ 055 



-CKMSG? MESSAGE BUTrER EXCEEDED iSSO 



.EVEN 

PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
INPUT: 

Rl CONTENTS OF TSSR AT ERROR 

SIDE EFFECTS: 

EXECUTES DROP UNIT TO CEASE TESTING 



1461 
1462 
1465 



1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1475 
1474 
1475 
1476 

1477 
1478 
1479 
1480 



1481 
1482 
1483 
1484 



011644 
011644 
011644 
011650 
011654 
011654 
011654 



004757 005654' 
004757 017014' 



104425 



SFIMSG: 



L 10005: 



BGNMSG SFIMSG 

'JSR PC.PRITSSR 

JSR PC.CKOROP 
ENDMSG 



iPRINT CONTENTS OF TSSR REGISTER 
lOROP UNIT. IF ALLOUEO 



TRAO 



CtMSG 



PRINT ROUTINE TO PRINT THE CONTENTS OF 

TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 



IM>UTS: 



Rl TSSR CONTENTS 

R4 ADDRESS OF COMMAND PACKET 



011656 
011656 
011656 
011662 
011666 
011672 
011672 
011672 



004757 005654* 
012700 000004 
004757 007200* 



104425 



PKTSSR; 



L10004: 



I ♦ 



BGNMSG PKTSSR 

* 

JSR PC.PRITSSR 

MOV M.RO 

JSR PC.PRIPKT 
ENDMSG 



iPRINT THE CONTENTS OF TSSR REGISTER 

tNO. OF UORDS IN PACKET 

tPRINT THE CONTENTS OF COMMAND PACKET 



TRAP 



CtMSG 



I PRINT ROUTINE TO PRINT THE CONTENTS OF 
iTSSR AND A GET STATUS COMMAND PACKET. 



C5 



SEQ 054 



1465 
1466 
1467 
1466 
1469 
1490 
1491 
1492 
1493 

1494 
1495 
1496 
1497 



1496 
1499 

ISOO 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 

1510 
1511 



1512 
1513 
1514 
1515 
1516 
1517 
1516 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 

1526 
1529 
1530 
1531 
1532 



011674 
011674 
011674 
011700 
011704 
011710 
011710 
011710 



011712 
011712 
011712 
011716 
011716 
011716 



011720 
011720 
011720 
011724 
011726 
011730 
011734 
011754 
011754 



INPUTS: 



004737 005634' 
012700 000002 
004737 007200' 



104423 



Rl 
fi4 



BGNHSG 
PKTGETS:: 

JSR 

nov 

JSR 

ENOnSG 

L 10005: 

TRAP 



TSSR CONTENTS 

ADDRESS OF COTtlANO PACKET 



PKTGETS 

PC.PRITSSR 

♦2.R0 

PC.PRIPKT 



CtnSG 



iPRINT THE CONTENTS OF TSSR REGISTER 
tNO. OF WORDS IN GET STATUS PACKET 
{PRINT THE CONTENTS OF COMMAND PACKET 



PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
IfFUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



004737 005634' 



104423 



SFFMSG: 



L10006: 



BGNHSG 

'jSR 
ENOMSG 

TRAP 



SFFMSG 
PC.PRITSSR 

C»HSG 



I PRINT CONTENTS OF TSSR REGISTER 



.SBTTL PKTMES • PRINT TSSR AND MESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
BUFFER FOR ERROR REPORTS 



INPUTS: 



Rl CONTENTS OF TSSR 

R2 LOU ORDER MESSAGE BUFFER 

R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 



004737 005634' 

010200 

010301 

004737 014052' 



104423 



PKTMES: 



L 10007: 



BGM1SG PKTMES 



JSR 
MOV 
MOV 
JSR 

ENDMSG 
TRAP 



PC.PRITSSR 
R2.R0 
R3,R1 
PC.PRMESS 



C»MSG 



TSSR 



iPRINT CONTENTS OF 
I LOU ORDER ADDRESS 
I HIGH ORDER ADDRESS 
iPRINT THE MESSAGE BUFFER 



D5 



SEQ 055 



15S5 
1554 
1555 
1536 
1557 
1558 
1559 
1540 
1541 
1542 
1545 
1544 
1545 
1546 
1547 

1548 
1549 
1550 
1551 



1552 
1555 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1565 
1564 
1565 
1566 

1567 
1568 
1569 
1570 
1571 
1572 



1575 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1585 



011756 
011756 
011756 
011742 
011746 
011752 
011752 
011752 



011754 
011754 
011754 
011760 
011764 
011766 
011772 
011776 
011776 
011776 



.SBTTL ADOSSR 



PRINT TEST ADDRESS AND TSSR 



004757 010104' 
016501 000002 
004757 005654* 



104425 



012700 000007 

005757 002224' 
001402 

012700 000010 

0047S7 014S62' 



104425 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A MEnORY TEST ADDRESS 



INPUTS: 



R5 FIRST DEVICE UNI8US ADDRESS 

ERRHI HIGH ORDER HEHORY TEST ADDRESS 
ERRLO LOU ORDER MENORY TEST ADDRESS 



ADDSSR: 



BG»«1SG ADDSSR 



L 10010: 



JSR 
MOV 
JSR 

ENOMSG 
TRAP 



PC.PRITADD 

TSSR(R5).R1 

PC.PRITSSR 



CIMSG 



iPRINT MEMORY TEST ADDRESS 
I GET CURRENT TSSR 

(PRINT THE CONTENTS OF TSSR REGISTER 



.SBTTL MSGEXP • PRINT URITE CHAR. EXPD-RECV MESSAGE BUFFERS 

PRINT ROUTINE TO PRINT URITE CHARACTERISTIC MESSAGE BUFFER 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



MSGEXP i ; 
51: 

LlOOll: 



BGM1SG MSGEXP 



MOV 
TST 
BEQ 

nov 

JSR 

ENOMSG 

TRAP 

.SBTTL 



♦7,R0 

EXTFEA 
S< 

•8..R0 
PC.PRMSGEXP 



t ASSUME NO EXT FEATURES 
lEXT FEATURES SET? 
iBR IF NO 

I EXT FEATURE BUFFER IS 8 UORDS 
I PRINT EXPD/RECV MESSAGE BUFFERS 



C<MSG 
FIFEXP 



• PRINT FIFO EXP/RECV DATA 



PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 

Rl - BYTE COUNT 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 



E5 



TSV3 GLOBAL AREAS MACRO Ml 113 07 -FEB -84 10:56 
riFEXP PRINT FIFO EXP/RECV DATA 



SEQ 056 



15«4 

1585 



RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 





OldvQQ 








r IFEXP: 


fl<— i a*l-<— 

BGNMSG 


F IFEXP 




loo 7 


OleOUO 










PRINTX 


•F IFIMSG.RI 


1 PRINT BYTES TRANSFERRED 




UlcUUU 


A1 A1 








nuv 


RX. -\ 5r ) 




A1 


A1 07Ati 








nuv 


9r ir xnsUi -1 5r J 








A1 








nuv 


#2.-(SP) 






012012 


010600 








MOV 


SP.RO 






012014 


104415 








TRAP 


CIPNTX 






A1 JL 










Ann 


















PRINTX 




irRINI McADEN nSb 




012022 


012746 


012121* 






MOV 






012026 


012746 


000001 






MOV 


•l.-(SP) 






012032 


010600 








MOV 


SP.RO 






012034 


104415 








TRAP 


CIPNTX 






012036 


062706 


000004 






ADO 


•4.SP 




1589 


012042 


010100 








MOV 


Rl.RO 


iGET BYTE COUNT 


1590 


012044 


004737 


014732' 






JSR 


PC.PRBYTEXP 
CIMSG 


iPRINT FIFO BYTES IN ERROR 


1591 


012050 
012050 
012050 


104423 






L 10012: 


ENOriSG 
TRAP 


1592 


012052 


045 


116 


045 


FIFIMSC: 


.ASCIZ 'UNilA 


NUMBER OF BYTES TRANSFERRED - 


1593 


012121 


045 


116 


045 


FIF2nSG 




.ASCIZ '«NM 


FIFO DATA BYTES IN ERROR:' 



1594 

1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 

1610 
1611 
1612 
1613 



1614 

1615 
1616 
1617 



1618 



012160 
012160 
012160 
012164 
012166 
012170 
012170 
012172 
012176 
012200 
012202 
012206 
012210 
012214 
012220 
012220 
012220 



.EVEN 

.SBTTL HSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



IMPLICIT INPUTS: 

EXPnSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOAOD- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 







BOtlSG 


HSGSTAT 








MSGSTAT : : 






012701 


012222' 


MOV 


•STATCOO.Rl 


(ASCII ADDRESS TABLE 


012100 




10): MOV 


(R1)*.R0 


tDONE ALL MSG LINES? 


001410 




BEQ 


201 


tBR IF YES 






PRINTX 


RO 


1 PRINT STATUS BIT NAMES 


010046 




MOV 


RO. (SP) 




012746 


000001 


MOV 


«1.-(SP) 




010600 




MOV 


SP.RO 




104415 




TRAP 


CIPNTX 




062706 


000004 


ADD 


•4.SP 




000766 




BR 


101 


iOO ANOTHER MSG LINE 


012700 


000012 


20$: MOV 


«10. ,R0 


(NUMBER OF WORDS IN A READ STATUS 


004737 


014362' 


JSR 


PC.PRMSGEXP 


(PRINT EXPD/RECV MESSAGE BUFFERS 






ENDMSG 








L 10013: 






104423 




TRAP 


CIMSG 





F5 



TSV3 GLOBAL AREAS MACRO 11113 
MSGS TAT PRINT STATUS HEADER AND MESSAGE 6 



SEQ 057 



1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
162a 
1629 
1630 
1631 
1632 
1633 
1654 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 

1643 
1644 
1645 
1646 



1647 
1648 
1649 
1650 



1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 



012222 


012240' 


012302 


012240 


045 


116 


012302 


045 


116 


012373 


045 


116 


012464 


045 


116 


012555 


045 


116 


012617 


045 


116 



045 li:.ASCIZ 'MMA T 

045 2t:.ASCIZ 'MWA 

045 3t:.ASCIZ '«N«A 

045 4t:.ASCIZ '«N«A 

045 5t:.ASCIZ '«N«A T 

045 6I:.ASCIZ '«NtfA 
.EVEN 



.WORD 



1*.2»,3».4*.5*.6*.0 

Bu« Signals in Word 96:' 

PARERR<15> lEOT <12> IFMK <9> IR0Y<6> 

IRESV2<14> IIDENT<11> IMER <8> I0NL<5> 

IRESV1<13> ICER <10> ISPEE0<7> IL0P<4> 

BvM Signal* in Word *9:' 

0ATniS<7> ILU<6> 0UTR0T<5> INR0Y<4>' 



IPU0<2>' 
IFBY<1>' 
IFPT<0>' 



.SBTTL nSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPO/RECV 
IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 
RECnSG - RECEIVED MESSAGE BUFFER 

RCVHIAOD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADO> RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



012674 






8GM1SG 


MSGLOOP 




012674 






MSGLOOP:: 






012674 


012701 


012736' 


MOV 


•LOOPCOO.Rl 


» ASCII ADDRESS TABLE 


012700 


012100 




lot : MOV 


(R1)*.R0 


iDONE ALL MSG LINES? 


012702 


001410 




BEQ 


20$ 


iBP IF YES 


012704 






PRINTX 


RO 


tPRINT STATUS BIT NAMES 


012704 


010046 




MOV 


PO.-(SP) 




012706 


012746 


000001 


MOV 


♦l.-(SP) 




012712 


010600 




MOV 


SP.RO 




012714 


104415 




TRAP 


CtPNTX 




012716 


062706 


000004 


ADO 


M.SP 




012722 


000766 




BP 


101 


lOO ANOTHER MSG LINE 


012724 


012700 


000012 


201: MOV 


♦10.. RO 


(NUMBER OF WORDS IN A READ STATUS 


012730 


004757 


014562' 


JSR 


PC.PRMSGEXP 


t PRINT EXPD/RECV MESSAGE BUFFERS 


012734 






ENOMSG 




012754 






L10014: 






012754 


104423 




TRAP 


CIHSG 





012736 012756' 015051' 

012756 045 116 

015051 045 116 

015150 045 116 

015227 045 116 

015526 045 116 

015425 045 116 

015524 045 116 



015150 
045 
045 
045 
045 
045 
045 



LOOPCOO: 
1I:.ASCIZ 
2I:.ASCIZ 
5I:.ASCIZ 
4I:.ASCIZ 
5t:.ASCIZ 
6I:.ASCIZ 



PARERR<15> 

MMA IHISP->IE0T<12> 
MMA IWFM ->IFMK<09> 
tfNtfA ITA0O->IRDY<06> 
«MA IREU ->I06Y<05> 
045 7I:.ASCIZ 'HHM IGO ->IFPT<00> 
.EVEN 



WORD ll.2l.5».4>.5».6t.7t.0 
Taoa Bu« Loopback Signals in Word «8: 
IRESV2<14> 



IURT->IIDENT<11> 
IEDIT->IMER <08> 
ITAD1->I0NL <05> 
IRUU ->IRUD <02> 



IRESV1<15>' 
IREV ->ICER <10>' 
IFAO ->ISPEE0<07>' 
IERASE->IL0P <04>' 
IFEN ->IFBY <01>- 



.SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



G5 



TSV3 - GLOBAL AREAS MACRO M1113 07-PEB-84 10:58 
nSGSUe PRINT WRITE SUBSrSTEM MESSM^ BUTPER 



SEQ 056 



1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 

1676 
1677 
1678 



1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 

1697 
1698 
1699 
1700 
1701 



1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 



013552 
013552 
013552 
013556 
013562 
013562 
013562 



012700 000012 
004737 014362' 



104423 



013564 
013564 
013564 
013570 
013574 
013600 
013604 
013604 
013604 



004737 007770' 

013701 002230' 

013702 002232' 
004737 007552' 



104423 



I IMPLICIT INPUTS: 



EXPMSG - EXPECTED MESSAGE BUFPER 
RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADO- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



HSGSUB:: 



BGM1SG MSGSUB 



L 10015: 



MOV 
JSR 

ENDMSG 
TRAP 



«10. .RO 
PC.PRMSGEXP 



CIMSG 



(SIZE OF WRITE SUBSYSTEM BUFFER 
I PRINT EXPD/RECV MESSAGE BUFFERS 



.SBTTL MEMADO - PRINT MEMORY ADDRESS DATA ERROR 

* 

PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 

IMPLICIT INPUTS: 

ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO - MEMORY ERROR LOU ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



MEHAOO: 



L 10016: 



BOtlSG MEMADO 



JSR 
MOV 
MOV 
JSR 

ENDMSG 

TRAP 

.SBTTL 



PC.PRIAOO 
EXPD.Rl 
RECV.R2 
PC.PRIXOR 



{PRINT MEMORY ADDRESS IN ERROR 
iGET EXPO DATA 
iGET RECEIVED DATA 
I PRINT EXPD/RECV 



CtMSG 
PRAMPKT 



PRINT RAM AND PACKET DATA 



t ♦ 
i 
I 
i 
I 
I 
I 
t 
i 
t 
> 
i 
i 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
WHEN THE RAM DATA DOES NOT MATCH. 

INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMOATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ -0 THEN DEFAULT TO 6. 



TSVS - GLOBAL AREAS MACRO HHIS 07-FEB-a4 10:56 
PRAMPKT PRINT RAM AND PACKET DATA 



H5 



1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1750 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 



1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1753 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 



I IMPLICIT OUTPUTS: 









■ 

1 

I " 


RAMSIZ 


SET TO 0 








PQAMPKT 














'SAVREG 






01 9701 
VAC 1 vx 






MOV 


•RAMOATA.Rl 










CLR 


R2 


013690 








CMPB 


(Rl)t.(R4)* 


01S622 


OOlOOS 






BNE 


7» 










FORCERROR 7».N0TSSR 


01S6S4 


0004S6 






BR 


10» 


01S636 




177777 


7t • 


MOVE 


-1(R1).R5 


01S642 


116403 


177777 




MOVB 


-1(R4).R3 


013646 








XOR 


R5.R3 


01S6S6 


04270S 


177400 




BIG 


•177400. R3 


013662 


116137 

A AWA«# ■ 


177777 


002232' 

WCCvC 


MOVB 


-KRD.RECV 


013670 


116437 

A AW ■ w ' 


177777 


0022SO' 


novo 


-llK4 J.cXPD 


0136 76 








PRINTB 


4RAMASC . R2 . RECV . EXPO . R3 


013676 


010346 

VA Vw^W 






MOV 


R3.-(SP) 


013700 


01S746 

VA V ■ ~w 


0029SO' 




MOV 


EXPO.-CSP) 


01S704 


01S746 

VA V » 


WCCvC 




MOV 


RECV,-(SP) 


01S710 


wAVC^V 






MOV 


R2.-(SP) 




VAC f 


VA V vOv 




MOV 


•RAMASC.-CSP) 


01S716 


VAC ' 


vww^ 




NOV 


•5.-(SP) 




VAWW 






NOV 


SP.RO 


01S724 


Al^t A^ 






TRAP 


CtPNTB 


013726 


062706 


000014 




ADO 


•14. SP 


013732 


005202 




10»: 


INC 


R2 


013734 


005737 


002SOO' 




TST 


RAMSIZ 


013740 


001404 






BEQ 


15» 


013742 


020237 


002300' 




CMP 


R2.RAMSIZ 


013746 


003724 






BLE 


S» 


013750 


000403 






BR 


25» 


013752 


020227 


000010 


15»: 


CMP 


R2.«8. 


013756 


002720 




20»: 


BLT 


51 


013760 


005037 


002300' 


25»: 


aR 


RAMS'Z 


013764 


000207 






RTS 


PC 


013766 


045 


116 


045 RATMSC: 


.ASCIZ 


'iffMA BYTE; i(D2«A RAM: 










.EVEN 





SEQ 05«» 



iSAVE R1-R5 UNTIL NEXT RETURN 

I DATA FROM THE RAM 

iINIT BYTE NUMBER 

, COMPARE EXPECTED. RECEIVED 

tBR IF NO MATCH 

tSOO 

I GET RECV RAM DATA 

I GET EXPO PACKET DATA 

iXOR EXPD/RECV 

tLOW BYTE ONLY 

tGET RECEIVED RAM DATA 

iGET EXPECTED RAM DATA 



t UPDATE BYTE COUNT 
(DEFAULT TO 8.? 
I BR IF YES 
{DONE ALL BYTES? 
iBR IF NO 

!d0NE DEFAULT NUMBER OF BYTES? 
tBR IF NO 

tSET DEFAULT RAMSIZ 
{RETURN 

«03«A Packet: «03«A X0R:«O3' 



.SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



I* 
i 



I THIS ROUTINE PRINTS THE CONTENTS OF 
I THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 
tTSV-05. 



: INPUT: 
i 

t RO 
I Rl 
I NOTE: 

!thIS ROUTINE 



LOU ORDER ADDRESS OF MESSAGE BUFFER 
HIGH ORDER ADDRESS OF MESSAGE BUFFER 
Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 

IS NORMALLY CALLED FROM A PRINT ROUTINE 



TSV3 GLOBAL AREAS MACRO M1113 OT-rEB-S'* 10:56 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



1767 










1 




1768 










1 - 




1769 












1770 


014052 








PRMESS: 




1771 


014052 










SAVREG 


1772 


014056 


010005 








MOV 


1773 


014060 


005737 


003132' 






TST 


1774 


014064 


001001 








BNE 


1775 


014066 


005001 








CLR 


1776 


014070 


010103 






101: 


nov 


1777 


014072 


006100 








ROL 


1778 


014074 


006101 








ROL 


1779 


014076 










PRINTX 




014076 


010546 








nov 




014100 


010146 








nov 




014102 


012746 


014230' 






nov 




014106 


012746 


000003 






nov 




014112 


010600 








nov 




014114 


104415 








TRAP 




014116 


062706 


000010 






ADD 


1780 


014122 










PRINTX 




014122 


012746 


014275* 






nov 




014126 


012746 


000001 






nov 




014132 


010600 








nov 




014134 


104415 








TRAP 




014136 


062706 


000004 






ADD 


1781 


014142 


005004 








CLR 


1782 


014144 


010501 








nov 


1783 


014146 


010300 








nov 


1784 


014150 


001403 








BEQ 


1785 


014152 


004737 


017130' 






JSR 


1786 


014156 


010005 








nov 


1787 


014160 








20t: 


PRINTX 




014160 


012546 








nov 




014162 


010446 








nov 




014164 


012746 


014333' 






nov 




014170 


012746 


000003 






nov 




014174 


010600 








nov 




014176 


104415 








TRAP 




014200 


062706 


000010 






ADD 


1788 


014204 


005204 








INC 


1789 


014206 


020427 


000007 






cnp 


1790 


014212 


00S005 








BGT 


1791 


014214 


002761 








BLT 


1792 


014216 


032763 


000200 


000012 




BIT 


179S 


014224 


001355 








BNE 


1794 


014226 


000207 






501: 


RTS 


1795 














1796 


014230 


045 


116 


045 


PROASC: 


.ASCIZ 


1797 


014275 


045 


116 


045 


PRIASC: 


.ASCIZ 


1796 


014333 


045 


116 


045 


PRASC: 


.ASCIZ 



1799 
1800 
1801 
1802 
1803 
1804 



.EVEN 
.SBTTL 



t ♦ 
I 



I ROUTINE TO PRI 



15 



I SAVE THE REGISTERS 
I SAVE LOU ORDER ADDRESS 
{ADDRESS ABOVE 28K? 
I BR IF YES 

I SET HIGH ORDER ADDRESS TO 0 
I SAVE HIGH ORDER ADDRESS 
iSHlFT BIT15 TO C BIT 
I SHIFT TO HIGH ORDER FOR PRINTOUT 
iPRINT NESSAGE BUFFER ADDRESS 



R0.R5 
KTENABLE 

lot 

Rl 

R1.R3 
RO 
Rl 

•PR0ASC.R1.R5 
R5.-(SP) 
Rl.-(SP) 
«PROASC.-(SP) 
♦3,-(SP) 
SP.RO 
C«PNTX 
#10. SP 
•PRIASC 
•PRIASC.-(SP) 
♦1,-(SP) 
SP.RO 
CtPNTX 
«4.SP 
R4 

R5.R1 
R3,R0 
20t 

PC.SETNAP 
R0.R5 

•PRASC. R4.(R5)» 
CR5)».-(SP) 
R4.-(SP) 
•PRASC. -CSP) 
•3,-(SP) 
SP.RO 
CIPNTX 
•10. SP 

R4 t NUMBER OF THE NEXT 

R4.«7 iDONE ALL YET ? 

50« I BRANCH IF ALL DONE 

20t iPRINT FIRST 7 UORDS 

•X2.EXTF.XST2(R3)iEXTENDED FEATUTES ON 7 
201 iPRINT EXTENDED STATUS WORD 

PC iRETURN 

'KNrtA M*s««o* Buffer AddrM« - «D1«05' 
•MWA M«Mao« Buffer Contents:' 
'«MA UordtfDlKA: KO' 



I PRINT HEADER FOR CONTENTS 



iNUMBER OF THE NEXT WORD 
tCOPY LOU ORDER ADDRESS 
tCOPY HIGH ORDER ADDRESS 
I BR IF NOT ABOVE 28K 
I SETUP PAR ADDRESS IN RO 
iGET PAR FORMAT ADDRESS ABOVE 28K 
{PRINT THE CONTENTS OF MEMORY BUFFER 



PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



EXPECTED AND RECEIVED MESSAGE BUFFERS 



J5 



TSV3 GLOBAL AREAS MACRO rilll3 07-FEB-84 10:58 
PRMSGEXP PRINT EXPO/RECV MESSAGE BUFFERS 



SEQ 061 



1805 
1806 
1807 
1808 
1809 
1810 
1811 
I8I2 
1815 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1622 
1823 



1824 



1825 
1826 
1827 
1828 
1829 
1830 
1831 



1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1640 



014362 
014362 
014366 
014370 
014374 
014376 
014402 
014404 
014406 
014406 
014410 
014412 
014416 
014422 
014424 
014426 
014432 
014432 
014436 
014442 
014444 
014446 
014452 
014454 
014460 
014464 
014466 
014470 
014500 
014500 
014502 
014504 
014506 
014510 
014514 
014520 
014522 
014524 
014530 
014532 
014534 
014536 
014540 

014542 
014607 
014645 



010005 
013700 
010004 
013701 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
012701 
012702 
011100 
011203 



RO - NUMBER OF WORDS IN BUFFER 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECHSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



002304' 
002302' 



014542' 
000003 



000010 

014607' 
000001 



000004 

002320' 
002464' 



010346 




012246 




012146 




010446 




012746 


014645 


012746 


000005 


010600 




104415 




062706 


000014 


005204 




020405 




002001 




000752 




000207 




045 


116 


045 


116 


045 


116 



PRMSGEXP:: 

SAVREG 
MOV 
HOV 
MOV 

nov 

ROL 
ROL 

PRINTX 
MOV 

nov 
nov 
nov 
nov 

TRAP 

ADD 

PRINTX 

nov 
nov 
nov 

TRAP 

ADO 

CLR 

nov 
nov 

20»: nov 

nov 

XOR 

PRINTX 

nov 
nov 
nov 
nov 
nov 
nov 
nov 

TRAP 

ADO 

INC 

CMP 

BGE 

BR 

501 : RTS 

045 PRnSGO: .ASCIZ 
045 PRMSGl: .ASCIZ 
045 PRnSG2: .ASCIZ 



R0.R5 

rcvloadd.ro 

R0.R4 

RCVHIADD. Rl 

RO 

Rl 

«PRnSG0.Rl.R4 

R4.-(SP) 

Rl.-CSP) 

•PRnSGO.-CSP) 

#3,-(SP) 

SP.RO 

CIPNTX 

•10. SP 

•PRflSGl 

•PRnSGl.-CSP) 

#l.-(SP) 

SP.RO 

CIPNTX 

#4.SP 

R4 

«EXPnSG.Rl 

«RECnSG.R2 

(Rl).RO 

(R2).R3 

R0.R3 

•PRnSG2.R4.(Rl 

R3.-(SP) 

(R2)*.-(3P) 

(R1)*.-(SP) 

R4.-(SP) 

•PRnSG2.-(SP) 

•5.-(SP) 

SP.RO 

CIPNTX 

•14. SP 

R4 

R4.R5 

501 

20$ 

PC 



iSAVE R1-R5 UNTIL NEXT RETURN 

iSAVE NUnBER OF WORDS 

iGET RECV LOW ADDRESS 

tCOPY LOW ADDRESS 

I GET RECV HIGH ADDRESS 

I SHIFT BIT15 TO C BIT 

I SHIFT TO HIGH ORDER FOR PRINTOUT 

I PRINT MESSAGE BUFFER ADDRESS 



t PRINT HEADER FOR CONTENTS 



iNUHBER OF THE CURRENT WORD 
I GET EXPO BUFFER ADDRESS 
I GET RECV BUFFER ADORESb 
I GET EXPD 
I GET RECV 
I XOR EXPD/RECV 
)*.(R2)«.R3 



iNUHBER OF THE NEXT 
iDONE ALL YET? 
iBR IF- YES 
I DO ANOTHER 
(RETURN 



'MNM Message Buffer Address - «01«05' 
'MMM nsssMS Buffer Contents:' 

'MMM WORD e«D2«A EXPD: «06«A RECV: «06«A XOR: tf06' 



K5 



TSV3 - GLOBAL AREAS HACRO M1113 07-FEB-84 10:58 
PRHSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



SEQ 062 



1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1655 
1656 
1657 
1656 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1666 
1669 
1670 
1671 
1672 
1673 
1674 
1675 



1876 
1677 
1676 
1679 
1660 
1661 
1662 
1663 
1864 
1665 



014732 
014732 
014736 
014740 
014744 
014746 
014752 
014756 
014760 
014764 
014770 
014772 
014776 
015002 
015012 
015014 
015016 
015022 
015030 
015032 
015032 
015034 
015040 
015044 
015046 
015052 
015056 
015060 
015062 
015066 
015076 
015100 
015100 
015110 
015110 
015112 
015114 
015116 
015120 
015120 
015124 
015130 



010005 
005037 
005004 
012701 
012702 
111100 
042700 
110037 
1112C3 
042703 
110337 

122122 
001431 
005237 
023727 
101023 

010346 
013746 
013746 
010446 
012746 
012746 
010600 
104415 
062706 

000404 



005204 
020405 
002001 
000717 

013746 
012746 
012746 



.EVEN 

.SBTTL PRBYTEXP • PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 

* 

ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 

RO • NUMBER OF BYTES IN BUFFER 

IMPLICIT INPUTS: 



EXPMSG 
RECnSG 



EXPECTED MESSAGE BUFFER 
RECEIVED MESSAGE BUFFER 



PRBYTEXP: 



002316' 

002320' 
002464' 

177400 
015300' 

177400 
015302' 



002316' 

002316' 000010 



015302' 
015300' 

015146' 
000005 



201: 



27ti 



000014 



002316' 
015233' 
000002 



30t! 
351: 



50t: 



SAVREG 
MOV 
CLR 
CLR 
MOV 
MOV 
MOVB 
BIC 
MOVB 
MOVB 
BIC 
MOVB 
XOR 
CMP8 
BEQ 
INC 
CMP 
BHI 

PRINTX 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

rORCEXIT 
BR 



RETURN 



I SAVE R1-R5 UNTIL NEXT 

R0.R5 tSAVE NUMBER OF BYTES 

PRMNO iINIT ERROR COUNT 

R4 I NUMBER OF THE CURRENT BYTE 

«EXPMSG.R1 iGET EXPD BUFFER ADDRESS 

•RECMSG.R2 iGET RECV BUFFER ADDRESS 

(Rl).RO iGET EXPD BYTE 

#tC<377>.R0 I CLEAR UPPER BYTE 

RO.PRBEXP tSAVE FOR ERROR REPORT 

(R2).R3 iGET RECV BYTE 

#tC<377>.R3 iCLEAR UPPER BYTE 

R3.PRBREC I FOR ERROR REPORT 

R0.R3 tXOR EXPD/RECV 

(R1)».(R2)» lEXPD - RECV? 

301 tBR IF YES 

PRMNO I UPDATE ERROR COUNT 

PRMNO. #6. tPRINTED 6? 

301 tBR IF YES 
«PRBMSG . R4 . PRBEXP . PRBREC . R3 
R3.-(SP) 
PRBREC. -CSP) 
PRBEXP. (SP) 
R4.-(SP) 
•PRBMSG.-(SP) 
♦5.-(SP) 
SP.RO 
CIPNTX 
♦14. SP 

50t 



35$ 



FORCERROR 27»,N0TSSR 



INC 
CMP 
BGE 
BR 

PRINTX 
MOV 
MOV 
MOV 



R4 

R4.R5 

50$ 

20$ 

•PRBTOT.PRrmO 
PRMNO. (SP) 
«PRBTOT.-(SP) 
♦2. -CSP) 



iSSD 
(BSD 

tsao 

1080 

(NUMBER OF THE NEXT 
tOONE ALL YET? 
I BR IF YES 
tOO ANOTHER 

t PRINT TOTAL ERROR COUNT 



L5 



TSV3 

PRBYTEXP 



GLOBAL AREAS MACRO M1113 07-FE8 §4 10:58 
... 1 ^Jpf, 



PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 



SEQ 063 



1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 

1907 
1908 



015134 
015136 
015140 
015144 

015146 
015233 

015300 
015302 



010600 
104415 

062706 000006 
000207 



MOV SP.RO 
TRAP CIPNTX 



AOO 
RTS 



•6.SP 
PC 



{RETURN 



045 
045 

000000 
000000 



116 
116 



045 PRBMSG: .ASCIZ 'KIWA BYTE «lt02l*A EXPO: KOSKA RECV: iOSKA XOR: «03- 

045 PR6T0T: .ASCIZ 'MMA NUMBER OF BYTES IN ERROR - if02' 
.EVEN 

PRBEXP: .WORD 0 tEXPD 

PRBREC: .WORD 0 iRECV 

.SBTTL EXPREC • PRINT EXPD/RECV WORD DATA 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 



Rl RECEIVED DATA 

R2 EXPECTED DATA 



I - 



1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 

1927 
1928 



015304 
015304 
015304 
015310 
015310 
015310 



004737 007552' 



104423 



EXPREC: : 



L10017: 



BGNHSG EXPREC 

JSR PC.PRIXOR 
ENOnSG 



; PRINT THE DATA 



TRAP 



CtMSG 



.SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 



t ♦ 



i PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



INPUTS: 



Rl RECEIVED DATA BYTE 

R2 EXPECTED DATA BYTE 



1929 
1930 
1931 
1932 
1933 



015312 
015312 
015312 
015316 
015316 
015316 



004737 007422' 



104423 



EXPBREC: 



L 10020: 



BGNnSG EXPBREC 

JSR PC.PRIBXOR 
ENDMSG 



iPRINT THE DATA 



TRAP 



CIHSG 



.SBTTL RAMERR - PRINT RAH AND PACKET DATA 



TSVS - GLOBAL AREAS MACRO MlllS 
RAMERR - PRINT RAM AND PACKET DATA 



1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1946 
1949 
1950 
1951 
1952 
1953 



07 -FEB 84 10:58 



M5 



SEQ 064 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COTtlAND PACKET 

IMPLICIT INPUTS: 



RAMDATA 
RANSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-O THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 0 



1954 
1955 



1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1966 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 

1981 
1982 
1983 



1984 



015320 
015320 

015320 004737 013606' 

015324 

015324 

015324 104423 



RAMERR: 



L10021: 



BGNMSG RAMERR 

JSR PC.PRAMPKT 
ENOMSG 



I PRINT RAM/PACKET DATA 



TRAP 



OMSG 



.SBTTL RAMTADD - PRINT TEST ADDRESS. RAM AND PACKET DATA 

* 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 P^xNTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 

ERRHI 
ERRLO 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 6. 
HIGH ORDER TEST ADDRESS 
LOU ORDER TEST ADDRESS 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 0 



015326 
015326 

015326 004737 010104' 
0^5332 004737 013606' 
U15336 
015336 

015336 104423 



RAMTADD: 



BGNMSG RAMTADD 



L 10022: 



JSR 
JSR 
ENDMSG 

TRAP 



PC.PRITADD 
PC.PRAMPKT 



C<MSG 



(PRINT TEST ADDRESS 
; PRINT RAM/PACKET DATA 



TSV3 - GLOBAL AREAS MACRO MlllS 

RAMTAOO PRINT TEST ADDRESS. RAM AND PACKET 



0_7:rEB.84^^^: 



56 



N5 



SeO 065 



1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 

1999 
2000 
2001 
2002 
2003 



2004 
2005 
2006 
2007 
2006 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 

2018 



2019 
2020 



2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 



.SBTTL RAMEXP 



PRINT RAM EXPO/RECV DATA 



015340 
015340 
015340 
015344 
015350 
015354 
015360 
015360 
015360 



042701 
042702 
004737 
004737 



104423 



177400 
177400 
007676' 
007552' 



015362 
015362 
015362 
015362 
015366 
015372 
015374 
015376 
015402 
015406 
015406 
015406 



015410 



012746 
012746 
010600 
104415 
062706 
004737 



104423 
045 



015410' 
000001 



000004 
007552' 



116 



045 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 



INPUTS: 



Rl RECEIVED DATA 

R2 EXPECTED DATA 

R4 CONTROLLER RAM ADDRESS 



RAMEXP: 



L 10023: 



I ♦ 



BGNMSG RAMEXP 



BIC 
BIC 
JSR 
JSR 

ENOMSG 
TRAP 



♦tC<377>.Rl 
♦tC<377>,R2 
PC.PRIRAM 
PC.PRIXOR 



;SAVE EXPD RAM DATA BYTE 
sSAVE EXPD RAM DATA BYTE 
; PRINT THE RAM ADDRESS 
{PRINT THE DATA 



CIMSG 



.SBTTL TIMEXP 



PRINT TIMER A.B AND EXP/REC 



: PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
(AND TIMER A.B HEADER MESSAGE 

! INPUTS: 
t 
t 
t 

t - 



Rl RECEIVED DATA 

R2 EXPECTED DATA 



TIMEXP: 



BGNMSG TIMEXP 



L 10024: 



TIMSGO: 
.EVEN 



I ♦ 
I 



PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

JSR 

ENOMSG 
TRAP 



♦TIMSGO 

♦TIMSGO. -(SP) 

♦l.-CSP) 

SP.RO 

CIPNTX 

♦4,SP 

PC.PRIXOR 



CIMSG 



t PRINT HEADER 



: PRINT THE DATA 



.ASCIZ 'M4«A TIMER A STATUS IS IN BIT 3«N«A TIMER B STATUS IS IN BIT 2' 



.SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



B6 



TSV5 • GLOBAL AREAS MACRO nill5 07-rEB-S4 10:58 
BAOSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



SEQ 066 



2051 
2052 
2055 
2054 
2055 
2056 
2057 
2058 
2059 
2040 

2041 
2042 
2045 



iPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 



2044 

2045 
2046 



2047 
2048 
2049 

2050 
2051 
2052 
2055 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2065 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2075 
2074 
2075 
2076 
2077 
2078 



015510 
015510 
015510 
015512 
015516 
015516 
015520 
015524 
0155S0 
0155S2 
015534 
015540 
015542 
015546 
015546 
015546 
015550 



010246 
042702 

010246 
012746 
012746 
010600 
104414 
062706 
012602 
004757 



104425 
045 



ti'^' TS: 
I 

I 
i 

I - 

BAOSSR:: 



Rl CONTENTS OF TSSR 

R2 DATA WRITTEN (6 BITS) 



BGW1SG BAOSSR 



177400 



015550' 
000002 



000006 
005634' 

116 



L10025: 
045 XFERASC: 



nov 

BIC 

PRINTS 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADO 

NOV 

JSR 

ENDNSG 
TRAP 



R2,-(SP) 
•1 77400. R2 
•XFERASC.R2 
R2,-(SP) 
•XFERASC. 
♦2.-(SP) 
SP.RO 
CIPNTB 
•6.SP 
(SP)*.R2 
PC.PftlTSSR 



I SAVE DATA TRANSFERRED 
(GET JUST ONE BrTE 



(SP) 



•RESTORE R2 

•DECODE TSSR CONTENTS 



CINSG 
.ASCIZ 



'«NM Data Tranafarrad - «03' 



.SBTTL GLOBAL SUBROUTINES SECTION 



I THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
I THAT ARE USED IN NORE THAN ONE TEST. 



.SBTTL SOFINIT • SOFT INITIALIZE OF CONTROLLER 



ROUTIfC TO DO A SOFT INITIALIZE OF THE CONTROLLER 
BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT. 
THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 



I»#»UTS: 

R5 

OUTPUTS: 



ADDRESS OF FIRST REGISTER 



RO CONTENTS OF TSSR. IF ERROR 

CARRY SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 

CALLING SEQUENCE: 

NOV «AD0RESS.R5 



C6 



SEQ 067 



2079 

2oao 

2081 
2002 
2063 
2064 
20eb 
2086 
2087 
2068 
2069 
2090 
2091 
2092 
2093 
2094 
2095 
a>96 
2097 
2096 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2106 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2116 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 



JSR 
BCS 
ERRDF 



iREPORT FATAL ERROR 



015604 




SOFINIT 








015604 






SAVREG 




1 SAVE THE REGISTERS 


015610 


012765 


000000 000002 


MOV 


«0.TSSR(R5) 


1 DO THE INIT. 


015616 


004737 


016060' 


JSR 


PC.UAirr 


: WAIT FOR SSR 


015622 


016500 


000002 


nov 


TSSR(R5).R0 


1 GET THE TSSR REGISTER 


015626 


010004 




MOV 


R0.R4 


iTSSR COMTENTS 


015630 


042704 


176277 


BZC 


•tC<HIADOR i OFL > .R4 


015634 


052704 


002200 


BIS 


•SSR!NBA.R4 


|R4 HAS EXPECTED CONTENTS 


015640 


020400 




CMP 


R4.R0 


lONLY EXPECTED BITS SET ? 


015642 


001402 




BEQ 


51 


•BRANCH IF OKAY 


015644 


000241 




CLC 




1 CLEAR THE CARRY FQR ERROR 


015646 


000401 




BR 


101 


iGO TO EXIT 


015650 


000261 


5<: 


SEC 




tSET THE CARRY BIT 


015652 


000207 


10$: 


RTS 


PC 


iRETURN TO CALLER 








.SBTTL 


CMKAMB • CMECK 


TSSR FOR AMBIGUITY 



015654 
015654 
015660 
015662 
015666 
015670 
015674 
015676 
015700 
015704 
015706 
015712 
015714 
015720 
015724 
015726 



THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
FOR AreiGUITY 



INPUT: 



RO CONTENTS OF TSSR 



OUTPUT: 



RO CONTENTS OF TSSR 

CARRY SET • NO AMBIGUITY 

CLR - AMBIGUOUS CONTENTS 



CHKAMB: 



010004 
032700 
001004 
032700 
001023 
000424 
032700 
001011 
032700 
001414 
042704 
020427 
001007 
000410 





SAVREG 




iSAVE THE GENERAL REGISTERS 




MOV 


R0.R4 


•CONTENTS OF TSSR 


100000 


BIT 


•SC.RO 


lis BIT 15 SET 7 




BNE 


5* 


•BRANCH IF YES 


174077 


BIT 


•tC<NBA!0FL!SSR!HIAO0R>.RO lANY OTHER BITS 




BNE 


401 


iMUST BE AN ERROR 




BR 


451 


{RETURN UITH SUCCESS 


000200 


5t: BIT 


•SSR.RO 


lis READY BIT SET ? 




BNE 


lot 


1 BRANCH IF READY BIT IS SET. 


000040 


BIT 


«BIT5.R0 


lis FATAL ERROR BIT SET ? 




BEQ 


40> 


1 ERROR IF NOT 


177761 


BIC 


♦tCTERCLS.R4 


1 CLEAR ALL BUT TERMINATION CODE 


000016 


CMP 


R4.«16 


lALL THREE BITS MUST BE SET 




BNE 


401 


1 ERROR IF NOT SET 




BR 


451 


lOK IF ALL ARE SET 



SET 



TSV3 

CM<Are 



D6 



5 07 FEB -84 10:50 



SEQ 06S 





ni ^7 


U3c rUU 


AAAAAA 


















C A 7 




001002 




oi An 


VXD f 






mm A 


VX J ■ ~ w 






2142 


015750 


000261 




214S 


015752 






2144 








2145 








2146 








2147 

mm *^ ■ 








2148 








2149 








2150 








2151 








2152 








215S 








2154 




000200 




2155 




OOOOOl 




2156 
















2150 


015754 






2159 








2160 


015755 


ooo 

WW 




2161 








2162 








2163 


VX J ■ 






2164 








2165 


V X ■ WW 


AMMO 




2166 








2167 








2168 


vx J • VC- 


VX 




2169 


015764 


VX J • Vw 




2170 


015770 


A1P7PA 


VXwVCw 


2171 


015774 


vxc ■ sv 




2172 


016000 


AI3AAA 
VXcvW 




2173 


016OO2 

w XwWC 


A1 \ 




2174 


0160O4 


VXC V 


WWW 


2175 


016012 


000002 




2176 






2177 








2178 


016014 


011646 




2179 


016016 


012766 

VAC ■ w 


ooo SAO 


2180 


016024 


AAAAAp 
wvwc 




2181 








2182 








2183 








2184 


016026 
016026 






218S 


016026 


012737 


OOOOOl 


2186 


016034 


105037 


015755 


2187 


016040 


132737 


OOOOOl 


2188 


016046 


001003 




2189 


016050 


152737 


OOOOOl 


2190 








2191 









000002 



002222' 
015754- 
015755* 



101: 


BIT 


♦BITS.ftO 




BEQ 


451 




BIT 


#eiT2!BITl.R0 




BNE 


4S» 


401: 


CLC 






BR 


501 


451: 


SEC 




SOI: 


RTS 


PC 



lis FATAL ERROR BIT SET 7 
lERROR IF BIT IS SET WITH SSR 
lis THIS A FUNCTION REJECT 
iBR, IF TSSR IS OK 
lATfilGUOUS CONTENTS 

iSHOU SUCCESS - NO AMBIGUITY 
I RE TURN TO CALLER 

.SBTTL ENAINT.OSBINT • ENABLE/DISABLE INTERRUPTS 

! OEFAm T DISPLAY INTERRUPT HANDLERS. 

I IF DISPLAY TIME-OUT. REPORT DEV FATAL. AND ABORT PASS. 

i OTHERWISE. SAVE DPU REGISTERS AND DISMISS. 

I 

I BIT DEFINITIONS FOR "INTMASK" AND "INTFLAG" BYTES: 

' I0KCK1N-BIT7 i DON' T CHECK FOR BAD INTERRUPTS 

lOKSTP-BITO I EXPECT "STOP" INTERRUPT. 

ilNTERRUPT MASK SAYS EXPECTING INTERRUPTS 
INTMASK: .BYTE 0 

IlNTERRUPT FLAG -- SAYS WE GOT ONE (IF POSITIVE) 
INTFLAG: .BYTE 0 

I SAVED INTERRUPT VECTOR: 
INTVEC: .UORO 0 
iSAVE CPU PC 
INTCPC: .UORO 0 



TEST UILL. 



I SUBROUTINE TO ENABLE INTERRUPTS: 



ENAINT: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



RO,-(SP) 
IVEC.RO 
•INTR.(RO)* 
«PRI07.(R0)* 
(SP)».RO 
(SP).-(SP) 
•0.2(SP) 



I SAVE RO 

iGET POINTER TO VECTORS 
I SET UP INTERRUPT VECTOR 

I RESTORE RO 

I SET CPU TO LEVEL 0 



I SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 
0S6INT: MOV (SP).-(SP) 

MOV #PRI07.2(SP) 

RTI 



7) 



INTR:: 



.SBTTL INTR 
BGNSRV INTR 



- INTERRUPT HANDLERS 



MOV 
CLRB 
BITB 
BNE 
BISB 



iDEFINE INTERRUPT ENTRY 

I SET FLAG TO SHOW INTERRUPT RECEIVED 
I CLEAR FLAG TO SAY WE GOT INTERRUPT 



♦l.INTRECV 
INTFLAG 

♦lOKSTP. INTMASK lEXPECTING STOP INTERRUPT? 



II 



I BR IF YES 



♦lOKSTP. INTFLAG iNO. SET THE ERROR FLAG. 
I SAVE REGISTERS. MSG BUFFER. ETC. 



E6 



TSV3 - GLOBAL AREAS MACRO M1113 
INTR INTERRUPT HANDLERS 



07 -FEB -64 10:58 



SEQ 069 



2192 
2193 



2194 

2195 
2196 
2197 
2196 
2199 
2200 
2201 
2202 
2205 
2204 
2205 
2206 
2207 
2206 
2209 
2210 

2211 
2212 
2213 
2214 
2215 
2216 



016056 
016056 
016056 
016056 



000002 



II: 

L 10026: 



ENOSRV 
RTl 

.SBTTL WAITF 



UAIT FOR SUBSYSTEM REAOr 



SUBROUTINE TO UAIT FOR THE SUBSYSTEM READY FLAG 



INPUTS: 

RS 
OUTPUTS: 



RO 

CARRY 



ADDRESS OF FIRST DEVICE REGISTER 



CONTENTS OF LAST TSSR READ 

SET - READY BIT SET 

CLR - TIMEOUT UAITING FOR READY 



2217 
2216 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2226 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 



016060 


000401 




UAITF:: 


BR 


It 


iNOP UHEN SUPER FIXED 


016062 








BREAK 




1 00 A SUPVSR BREAK FIRST. 


016062 


104422 






TRAP 


CtBRK 




016064 


012746 


011000 


It: 


HOV 


♦11000. -(SP) 


I25-APRIL-63 REV B - 1100 MSEC TIMER 


016070 


016500 


000002 


21: 


nov 


TSSR(R5).R0 


iREAD THE TSSR REGISTER 


016074 


105700 






TSTB 


RO 


jTEST FOR READY BIT SET 


016076 


100420 






BMI 


3t 


1 EXIT ON STOP FLAG. 


016100 








DELAY 


1 


1 WAIT 100 USEC 


016100 


012727 


000001 




MOV 


♦l.CPO* 




016104 


000000 






.UQRD 


0 




016106 


013727 


002116' 




HOV 


LtDLY.CPO* 




016112 


000000 






.UQRD 


0 




016114 


005367 


177772 




DEC 


-6(PC) 




016120 


001375 






BNE 


.-4 




016122 


005367 


177756 




DEC 


-22( PC) 




016126 


001367 






BNE 


.-20 




016130 


005316 






DEC 


CSP) 


iREOUCE DELAY COUNT 


016132 


001356 






BNE 


2t 


iRETRY UNTIL TIMER EXPIRES 


016134 


000241 






CLC 




i C - 0. CONTROLLER STILL RUNNING... 


016136 


000401 






BR 


4t 


I...OR HUNG-UP AFTER 300 MSEC. 


016140 


000261 




5*: 


SEC 




t C - 1. CONTROLLER IS STOPPED. 


016142 


005326 




41: 


DEC 


(SP)» 


iRESTORE STACK WITHOUT CNANGING CARRY 


016144 


000207 






RTS 


PC 



.SBTTL CHKTSSR - CHECK TSSR FOR READY 



THIS ROUTINE WAITS FOR READY IN THE TSSR 

AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 



INPUT: 



R5 



ADDRESS OF CSR REGISTERS 



OUTPUT: 



rSVS - GLOBAL AREAS MACRO nuiS 07-FEB-64 10:58 
CMKTSSR - C«CK TSSR FOR READY 



F6 



SEQ 070 











1 


BA 
nU 


CONTENTS OF TSSR 












i 


^ ADD V 


SET - OKAY 




2240 








t 




CLR • NOT READY AHBIGUOUS, OR SC SET 










i 








2242 








> - 








224 O 
















cc4^ 


£1 
Ul0l40 






f^UVTCCD 
LrWv 1 33M 








2243 


£1 ASi 
01D140 


AAA 717 
wW4 tot 


Al £A&A' 




ICD 


PC.WAITF 


iWAIT FOR READY 


ce40 


A1 








Dl>l> 


201 


1 BRANCH IF iIME OUT 


f 




0047S7 


01S6S4' 




JSR 


PC.CHKAr« 


iTSSR AHBIGOUS? 


2246 


016160 


103006 






BCC 


10> 


(BR IF YES 


2249 


016162 


032700 


100000 




BIT 


•SC.RO 


1 SPECIAL CONDITION SET? 


2250 


016166 


001405 






BEQ 


151 


iBR IF NO 


2251 


016170 


032700 


074000 




BIT 


•< SCE ! BIE ! RMR ! NXn > . RO 


lANY ERROR BITS SET? 


2252 


016174 


001402 






BEQ 


151 


iSR IF NO 


2253 


016176 


000241 




101: 


CLC 




iSET FAILURE 


2254 


016200 


000401 






BR 


20t 




2255 


016202 


000261 




151; 


SEC 




!sET SUCCESS 


2256 


016204 


000207 




201: 


RTS 


PC 


1 RE TURN TO CALLER 



016206 
016214 
016222 
016224 
016226 



2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 

2275 016230 

2276 016232 

2277 016234 

2278 016240 
2279 

2280 016242 

2281 016244 

2282 016250 

2283 016252 
0162S2 
016256 

2284 016260 

2285 016262 

2286 016264 

2287 016266 
2288 

2289 
2290 
2291 
2292 



012737 
012737 
005003 
000241 
005711 

020102 
001407 
062701 
000772 

005103 
012716 
000002 

012700 
104436 
005703 
001401 
000261 
000207 



016242' 000004 
000200 000006 



.SBTTL XNXM 

ROUTINE TO TEST FOR 
ON RETURN. IF "C - 
"C" ■ 



- CHECK FOR NONEXISTENT »«M0RY 

A NEXM IN THE RANGE (Rl) THRU (R2). 
1. (Rl) - NEXH ADDRESS. 
0. ALL ADDRESSES OK. 



CALL: 



XNXH: 



It: 



NOV ADRl.Rl 
NOV ADR2.R2 
JSR PC.NXH 
RETURN 



:TEST "C AND PROCEED. 



000002 

016252' 
000004 



2*1 
St: 



NOV 
NOV 
CLR 
CLC 
TST 

CMP 
BEQ 
ADD 
BR 

con 

NOV 

RTI 

CLRVEC 

MOV 

TRAP 

TST 

BEQ 

SEC 

RTS 



*2t.8«4 

«PRI04.8«6 

R3 

(Rl) 

R1.R2 
3t 

•2.R1 
It 

R3 

«St.(SP) 



•4.R0 

CtCVEC 

R3 

.♦4 



PC 



I SET BUSERR VECTOR. 
I FLAG. 

I CLEAR THE CARRY FOR NO NXM FOUND 

I TEST THE AODRESS(ES). 

I IF ANY TRAP. CONTINUE AT 2». 

I OTHERWISE. CONTINUE HERE. 

iBR IF FINISHED (NO NEXM'S). 

I SET NEXT ADDRESS... 

I... AND CONTINUE. 

iGOT ONE. SET FLAG. . . 

I... AND DISMISS INTERRUPT... 
I... AND GIVE BACK THE VECTOR. 



I DID UE CATCH ONE ?? 

iNO. "C" ■ 0. SKir NEXT. 

lYES. "C" - 1. (Rl) - NEXM ADOR. 



.SBTTL TSTLOOP - CHECK ITERATION COUNT 



G6 
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TSTLOOP - CHECK ITFRATION COUNT 



SEQ 07L 



2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 



SUBROUTINE TO EXECUTE TEST ITERATIONS. 

EXIT WITH "C" SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
LOOP COUNTER IS SET BY "BEGIN. TEST" MACRO. 









! CALL: 


LOOPTO 


ARC 




016270 






TSTLOOP: 


• 






016270 


005737 


002166' 




TST 


NOITS 


1 ITERATIONS INHIBITtiD? 


016274 


001006 






BNE 


It 


1 YES. 


016276 


005737 


002202' 




TST 


QVP 


1 NO. 


016302 


100405 






BMI 


1< 


1 LOOPS DISALLOWED IN QUICK PASS. 


016304 


005337 


002214' 




DEC 


LOOPCNT 


1 BUMP LOOP COUNTER. 


016310 


001002 






BNE 


21 


016312 


000241 




11: 


CLC 




iLOOP DISALLOWED. OR DONE. 


016314 


000401 






BR 


31 


016316 


000261 




21: 


SEC 




iLOOP ENABLED. 


016320 


000207 




31: 


RTS 


PC 










.S8TTL 


TSTSETUP 


- PRINT TEST NAME AND INIT ERROR COUNTS 



PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
INCREMENT "TESTK" TO INDICATE THE NUMBER OF TESTS 
IN THE CURRENT RUN SEQUENCE. 

CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 



INPUT; 



RO 



POINTER TO TEST ID ASCIZ STRING 



OUTPUT; 



R5 



ADDRESS OF FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS: 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



016322 






TSTSETUP: : 






016322 


010046 




MOV 


RO.-(SP) 


tSAVE THE TEST ID MESSAGE 


016324 


005037 


003152' 


CLR 


SIFLAG 


1 CLEAR "SOFT INIT" FLAG 


016330 


005037 


016570' 


CLR 


ERRK 


i CLEAR LOCAL ERROR COUNTER. 


016334 


005037 


005602' 


CLR 


EXTA 


i CLEAR ERROR EXTENSION FLAG. 


016340 


105037 


015754' 


CLRB 


INTMASK 


1 CLEAR INTERRUPT MASK (CHECK ERROR) 


016344 


013700 


002200' 


MOV 


UNITN.RO 


1 GET THE UNIT NUMBER. 


016350 


006300 




ASL 


RO 


1 ... AND MAKE IT A WORD OFFSET. 


016352 


005737 


003112' 


TST 


NODEV 


i DID STARTUP FIND THE DEVICE? 


016356 


001430 




BEQ 


4t 


» BR IF YES 


016360 


100010 




BPL 


3< 


1 BR IF NOT IDLE 


016362 


052760 


160000 003174' 


BIS 


«160000.ERTABL(R0) i FLAG ERROR IN THE ERROR TABLE 



H6 
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TSTSETUP PRINT TEST NAME AND 



2350 



2351 
2352 
2353 



2354 
2355 



2356 

2357 
2358 
2359 

2360 
2361 
2362 
2363 



2364 

2365 



2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 

2378 
2379 
2380 



016370 
016570 
016372 
016374 
016376 
016400 
016402 
016410 
016410 
016412 
016414 
016416 
016420 
016426 
016426 
016432 
016434 
016434 
016436 

016440 
016440 
016442 
016446 
016450 
016452 
016452 
016454 
016460 
016464 
016466 
016470 
016474 
016500 
016500 
016504 
016506 
016510 
016514 
016516 



016532 
016532 
016534 
016540 
016542 
016542 
016546 
016552 
016556 
016560 



104455 

000001 

003732' 

005546' 

000407 

052760 

104455 

000002 

004327' 

000000 

012737 

013700 
104451 

104444 

000423 



104421 

032700 
001412 
011600 

010046 
012746 
012746 
010600 
104417 
062706 
005237 

C 13700 
104441 
005726 
013705 
000207 
045 



160001 003174' S(: 
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" INIT ERROR COUNTS 



ERROF 

TRAP 

.WORD 

.UORO 

.WORD 

BR 

BIS 

ERROF 

TRAP 

.WORD 

.UORO 

.WORD 

NOV 

DOOU 

nov 

TRAP 
OOCLN 
TRAP 
BR 



177777 
002200' 



003110' 2*: 



4»: 



001000 



016516' 
000002 



000006 
002212' 

002210' 



002204' 
123 



1>: 



5»: 



045 TNAN: 



RFLAGS 

TRAP 

BIT 

BEQ 

MOV 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

INC 

SETPRI 

MOV 

TRAP 

TST 

MOV 

RTS 

.ASCIZ 

.EVEN 



SEQ 072 



l.NXR, 

cJerdf 



NXRERR 



I NO DEVICE HERb -- PRINT IT 



1 

NXR 

NXRERR 
2» 

«160001.ERTABL(R0) 



2.N0INIT 
C«ER0F 
2 

NOINIT 
0 

♦-1.DUFLG 
UNITN 
UNITN.RO 
CtDODU 

CIDCLN 
51 

RO 

C»RFLA 

•PNT.RO 

II 

(SP).RO 

•TNAM.RO 

RO.-(SP) 

♦TNAM.-(SP) 

♦2,-(SP) 

SP.RO 

CiPNTF 

•6.SP 

TSTCNT 

IPRI 

IPRI.RO 

C»SPRI 

(SP)» 

CSRA00ft.R5 
PC 

•«SKTKA T««t' 



I FLAG ERROR IN THE ERROR TABLE 



I DEVICE NOT IDLE 



» DROP THE UNIT 



i ABORT THE PASS 



t GET THE OPERATOR FLAGS. 

t PRINT THE TEST NUMBERS? 

s BR IF NO 

>GET THE ID MESSAGE 

i DISPLAY THE TEST ID 



t BUMP TEST COUNTER. 
jPRIORITY THAT OF DEVICE 



iFiX UP THE STACK 

t ADDRESS OF TSV REGISTERS ON UNIBUS 



.SBTTL rSTENO - PRINT ERRORS RECEIVED 



AT END OF EACH TEST. PRINT THE NUMBER OF ERRORS RECEIVED 
IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER). 



104421 

030027 020000 
001412 

013746 016570' 
012746 016572' 
012746 000002 
010600 
104417 



TSTENO: 



RFLAGS 

TRAP 

BIT 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 



RO 

CIRFLA 

RO.«IER 

II 

•ESUM.ERRK 

ERRK.-(SP) 

#ESUM.-(SP) 

♦2.-(SP) 

SP.RO 

CIPNTF 



BR IF "lER" NOT SET. 
PRINT ERROR COUNT. 
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TSTENO - PRINT ERRORS RECEIVED 



16 



SEQ 073 



2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 

2414 

2415 
2416 
2417 



2418 



2419 

2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 



0I6S62 
016566 

016570 
016572 
016611 



062706 000006 
000207 



000000 
045 
105 



101 
122 



040 

122 



1>: 

ERRK: 
ESUM: 
EMAXOU: 



ADO 
RTS 

0 

.ASCIZ 
.ASCIZ 
.EVEN 



•6.SP 

PC 

i LOCAL ERROR COUNT. 

/tfA «0«A ERRORS/ 
/ERROR LIMIT REACHED 



.SBTTL INCERK 



DROPPING UNIT/ 



INCREMENT LOCAL ERROR COUNT 



I ♦_ 
I 
i 



ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT; 



016656 


005237 


016570' 


INCERK: 


INC 


ERRK 1 


INCREMENT LOCAL ERROR COUNT 


016662 


010046 






MOV 


RO.-CSP) 1 


SAVE RO 


016664 


013700 


002200' 




MOV 


UNITN.RO 1 


GET UNIT NUMBER. 


016670 


006300 






ASL 


RO t 


... AND MAKE IT A WORD OFFSET. 


016672 


062700 


003174' 




ADO 


•ERTABL.RO i 


RO GETS ADDRESS OF ERROR TABLE ENTRY. 


016676 


005210 






INC 


(RO) 1 


INCREMENT THE DEVICE ERROR COUNT 


016700 


032710 


007777 




BIT 


#7777, (RO) 1 


DID UE OVERFLOW THE FIELD? 


016704 


001001 






BNE 


It > 


BR IF NO. 


016706 


OOSSIO 






DEC 


(RO) t 


YES -- BACK IT UP TO 7777. 


016710 


012600 




11: 


MOV 


(SP)*.RO t 


RESTORE RO 


016712 


000207 






RTS 


PC 1 


RETURN TO CALLER. 


016714 


010046 




CKEMAX: 


MOV 


RO.-(SP) 1 


SAVE RO 


016716 


013700 


002200' 




MOV 


UNITN.RO t 


GET UNIT NUMBER 


016722 


006300 






ASL 


RO t 


... AND MAKE IT A UORO OFFSET 


016724 


016000 


003174' 




MOV 


ERTABL(RO).RO i 


GET ERROR TABLE ENTRY 


016730 


042700 


170000 




BIC 


*170000.R0 1 


EXTRACT ERROR COUNT FIELD 


016734 


020037 

Wis Wi# • 


002172* 

WIS * mm 




CMP 


RO CERRMAX i 


Tc CI nRAi 1 TMTT wrvfnpn rno tmtc imttv 

A3 OCUOfH. kXnj, 1 CAV.CCUCU ~UK inXS UNll I 


016740 


103004 






BHIS 


It i 


BR IF YES 


016742 


023737 


016570' 


002170' 


CMP 


ERRK.LERRMAX i 


IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 


016750 


103417 






BLO 


2« i 


BR IF NO 


016752 






It* 


RFLAC9 


RO i 


GET OPERATOR FLAGS 


016 752 


104421 






TRAP 


CIRFLA 




016754 


032700 


000040 




BIT 


•lOU.RO 1 


IS DROPPING INHIBITED? 


016760 


001013 






BNE 


21 1 


BR IF YES. 


016762 


012737 


177777 


003110' 


MOV 


•-1.DUFLG t 


NO - DROP THE UNIT 


016770 








ERROF 


4.EMAXDU 


016770 


104455 






TRAP 


OEROF 




016772 


000004 






.UORO 


4 




016774 


016611' 






.UORO 


EMAXDU 




016776 


000000 






.WORD 


0 




017000 








DODU 


UNITN 




017000 


013700 


002200' 




MOV 


UNITN.RO 




017004 


104451 






TRAP 


ODODU 




017006 








DOCLN 






017006 


104444 






TRAP 


ODCLN 




017010 


012600 




2»: 


MOV 


(SP)».RO 1 


RESTORE RO 


017012 


000207 






RTS 


PC 1 


RETURN TO CALLER 










•SBTTL 


CKDROP - CHECK IF UNIT SHOULD BE DROPPED 








: ♦ 

1 CHECK 


IF UNIT 


SHOULD BE DROPPED 




017014 


010046 




CKOROP: 


MOV 


RO.-(SP) 




017016 








FORCERROR K.NOTSSR 





J6 
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CKOROP CHECK IF UNIT SHOULD BE DROPPED 



SEQ 0/4 



2429 

2430 
2431 
2432 
2433 
2434 



2435 

2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2456 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 



017026 
017026 
017030 
017034 
017036 
017040 
017046 
017046 
017052 
017054 
017054 
017056 
017060 



017062 
017062 
017066 



017070 
017074 
017076 
017104 



017106 
017112 
017114 
017116 
017120 
017126 



104421 

032700 
001010 
011600 
012737 

013700 
104451 

104444 

012600 
000207 



004737 
000207 



005737 
001403 
012737 
000207 



005737 
001405 
000240 
000240 
012737 
000207 



000040 

177777 
002200' 



003110' 



015604' 



OOSISO' 
000001 



177572 



003150' 



000000 177572 



II: 



RFLAGS 
TRAP 
BIT 
BNE 
MOV 
MOV 
DODU 

nov 

TRAP 
DOCLN 
TRAP 
MOV 
RTS 

.S8TTL 

SUBROUTINE - 



RO 

C»RFLA 

•lOU.RO 

It 

(SP).RO 

♦-1.0UFLG 

UNITN 

UNITN.RO 

CtDOOU 

CtDCLN 

CSP)*.RO 

PC 



(ABORT THE PASS 



CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
DETERMINE CONFIGURATION OF TSU05 SYSTEM. 



CO(#^IG: 



JSR 
RTS 



PC.SOFINIT 
PC 



.SBTTL KTON.KTOFF 
SUBROUTINE - ENABLE MEM MGT. 



i 
( 

KTON: 
II: 



TST 
BEQ 
MOV 
RTS 



KTFLG 
II 

•l.SRO 
PC 



ENABLE/DISABLE MEMORY MANAGEMENT 



I GOT KT? 
; NO. 

t YES. ENABLE KTli. 



i 



SUBROUTINE - DISABLE MEM MGT. 



TST 
BEQ 
NOP 
NOP 
MOV 
RTS 



KTFLG 
II 



«O.SRO 
PC 



.SBTTL SETMAP 



t GOT KTll? 
i NO. 



; DISABLE KT. 



SETUP PAR6 MAPPING 



KTOFF: 



II: 



t ♦ 

'this routine SETS UP KERNEL PAR6 TP HANDLE 
tAN 22 BIT ADDRESS. THE OFFSET INTO THE PAGE 
lis RETURNED BIASED TO PmR6. 

I INPUTS: 
t 

t RO 
t Rl 

I OUTPUTS: 



HIGH ORDER ADDRESS BITS 
LOU ORDER ADDRESS BITS 



I<6 
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SETMAP SETUP PAR6 MAPPING 

2462 
2465 
2484 
2485 
2486 

2487 017150 

2488 017130 

2489 017134 005737 003130' 

2490 017140 001433 

2491 017142 010102 

2492 000006 
2493 

2494 
2495 

2496 017174 042701 000177 

2497 017200 020137 003130' 

2498 017204 103011 

2499 017206 010137 172354 

2500 017212 042702 160000 

2501 0172 16 062702 140000 

2502 017222 010200 

2503 017224 000261 

2504 017226 000401 

2505 017230 000241 

2506 017232 000207 
2507 

2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 

2524 017234 

2525 017234 

2526 017240 004737 017106' 

2527 017244 010003 

2528 017246 013701 003122' 

2529 017252 013702 003124' 

2530 017256 010321 

2531 017260 005302 

2532 017262 003575 

2533 017264 005737 005130' 

2534 017270 001502 

2535 017272 004737 017070' 

2536 017276 005000 

2537 017300 013701 003150' 

2538 000006 
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SEQ 075 



SETMAP: 



lot: 
15$: 



RO 

CARRY 



SAVREG 

TST 

BEQ 

MOV 

.REPT 

ASR 

ROR 

.ENOR 

SIC 

CMP 

BHIS 

MOV 

BIC 

AOO 

MOV 

SEC 

BR 

CLC 

RTS 



OFFSET INTO BLOCK UITH PAR6 BIAS (I.E. THE ADDRESS) 
SET IF SUCCESS 
CLR IF ERROR 



KTFLG 
101 
R1.R2 
6 

RO 
Rl 

♦177, Rl 
Rl. KTFLG 
101 

R1.S«KIPAR6 
#160000. R2 
#140000. R2 
R2.R0 

151 

PC 



I SAVE R1-R4 UNTIL NEXT RETURN 
•SYSTEM HAVE ABOVE 28K? 
iBR IF NO 

I SAVE LOW ORDER BITS 

I CONVERT WORD ADDRESS TO 32W BLOCKS 
iMAKE IT DOUBLE PRECISION 

I ALINE FOR LOWER 4K BOUNDARY 
iHIGHER THAN EXISTING MEMORY? 
I BR IF YES 

I SETUP MAPPING REGISTER PAR6 
I SETUP DISPLACEMENT IN PAGE 
I AOO IN PAR6 BIAS 
I RETURN IN RO 
tSET SUCCESS 

!SET FAILURE 
iRETURN 



.S8TTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
FILL MEMORY WITH A BACKGROUND PATTERN 
INPUTS: 

RO - BACKGROUND PATTERN 



FREE 
KTFLG 

OUTPUTS: 

NONE 



- FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

- SET TO HIGHEST MEMORY LOCATION IF > 28K. 



FILLMEM: 



101: 



SAVREG 

JSR 

MOV 

MOV 

MOV 

MOV 

DEC 

BGT 

TST 

BEQ 

JSR 

CLR 

MOV 

.REPT 



PC, K TOFF 

R0.R3 

FREE.Rl 

FRESIZ.R2 

R3.(Rl)i» 

R2 

101 

KTFLG 

55$ 

PC.KTON 
RO 

PST32W.R1 
6 



SAVE R1-R5 UNTIL NEXT RETURN 

DISABLE KT. 

COPY TEST PATTERN 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 26K. 

STORE A BACKGROUND WORD 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES, ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS (IN 32W BLOCKS) 
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riLLMEM TILL MEMORY UITH BACkCAOUNO PATTERN 



L6 



SEQ 076 



2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2556 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2564 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 

















t CLEAR C BIT 












RQL 


Rl 


1 CONVERT BLOCKS TO WORDS 














RO 


I MAKE IT DOUBLE PRECISION 


















vX ■ O^V 


CitiA7%7 


01 71 SO' 

VX ' X<JV 






JSR 


PC SETMAP 


i SETUP PAR6 rlAPPING REGISTER 










sot • 


MOV 


R3 (RO)* 


I STORE TEST PATTERN IN >28K ADDRESS 


VX « 


vcwc f 


XwWW 






err 


RO . #160000 


lENO OF PAR6 MAPPING AREA? 


VX f dOc 












30$ 


iBR IF NO 


VX • 




O2OOO0 

VC WW 






SUB 


#20000 . RO 


i BACKUP INTO PAR6 MAPPING BEGIN 


VX f J f V 






172354 




ADO 


#200.B#KIPAR6 


iPOINT TO NEXT 4K BLOCK >26K. 


VX f O • w 


VX J 1 v^ 


003130' 

WwX ''V 






MOV 


KTFLG.R5 


iGET VALUE FROM MEMORY SIZER 


VX f ^vc 


1 VJ 


170000 

X ' WW 






BIC 


#170000. R5 


(ONLY 18 BITS PASS 


VX • ^ w 


09370S 


172354 






CMP 


8#KIPAR6»R5 


lENO OF MEMORY? 


01 74 IP 

VA • ~ XC 


001427 








BEQ 


50$ 


iBR IF YES 


VX • ^ x~ 


0057S7 


003142' 






TST 


T23A 


{PROCESSOR TYPE A 


VX f^CV 


WX^V r 








BEQ 


35$ 


iNO KEEP GOING 


Ol 7MPP 

VX • 


013704 

vx<^ • 


177572 






MOV 


SR0.R4 


tGET SRO CONTENTS 




042704 


177761 






BIC 


#177761. R4 


t CLEAR ALL BUT PAGE NUMBER 


017432 


022704 


000016 






CMP 


#16, R4 


iSEE IF PAGE 7 


017436 


001415 








BEQ 


50$ 


jEXIT IF THERE 


017440 


005737 


003144' 




35$: 


TST 


T23B 


(PROCESSOR TYPE B 


017444 


001410 








BEQ 


45$ 


iNO KEEP GOING 


017446 


023727 


172354 


007600 




CMP 


8«KIPAR6.#7600 


tRE'""HED 18 BITS? 


017454 


103001 








BHIS 


40$ 


jYEi> 


017456 


000403 








BR 


45$ 


sNO KEEP GOING 


017460 


012737 


000020 


172516 


401: 


MOV 


#20.SR3 


:SET MMU RELOCATION 


017466 


000137 


017354' 




45$: 


JMP 


30$ 


iKEEP GOING ON ETC. 


017472 


004737 


017106' 




50$: 


JSR 


PC.KTOFF 


t DISABLE KT. 


017476 


000207 






55$: 


RTS 


PC 





.SBTTL CMPMEM 



COMPARE MEMORY TO BACKGROUND PATTERN 



I ♦ 
ff 

> 
i 
i 
( 



COMPARE MEMORY WITH A BACKGROUND PATTERN 



INPUTS: 



RO - BACKGROUND PATTERN 

FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
KTFLG ■ SET TO HIGHEST MEMORY LOCATION IF > 28K. 



OUTPUTS: 



CARRY - SET IF NO ERROR 
CARRY • CLR IF ERROR 



IMPLICIT OUTPUTS: 



017500 
017500 
017504 
017506 
017512 



t 
; 
( 

CMPMEM; 



ERRHI - ERROR HIGH ADDRESS 

ERRLO - ERROR LOU ADDRESS 

EXPO - EXPECTED DATA 

RECV - RECEIVED DATA 



010003 

004737 017106' 
013701 003122' 



SAVREG 

MOV R0.R3 

JSR PC.KTOFF 

MOV FREE.Ri. 



;SAVE R1-R5 UNTIL NEXT RETURN 
;COPY TEST PATTERN 
t DISABLE KT. 

jGET FIRST FREE LOCATION 



TSV3 - GLOBAL AREAS MACR 
CMPMEM - COMPARE MEMORY TO 



M1U5 07 
ACKGROUNO PA 



aI^eSn 



10:58 



M6 



SEQ 077 



2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2606 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 



017516 


013702 


003124' 




MOV 


FRESI2.R2 


iSIZE OF FREE ^PACE BFLDU 9AK 


017522 


020311 




lot : 


CMP 


RS.CRl) 




017524 


001411 






BEQ 


15* 


iBR IF YES 


017526 


010137 


002236' 




MOV 


ri.errlo 


iSAVE ADDRESS IN ERROR 


017532 


005037 


002234' 




CLR 


ERRHI 


iNO HIGH ADDRESS 


017536 


010337 


002230' 




MOV 


R3.EXPD 


iSAVE EXPD FOR ERROR REPORT 


017542 


011137 


002232' 




MOV 


(Rl).RECV 


(SAVE RECV FOR ERROR REPORT 


017546 


000474 






BR 


50* 




017550 


005721 




15(: 


TST 


(Rl)» 


(POINT TO NEXT ADDRESS 


017552 


005302 






DEC 


R2 


(DONE ALL MEMORY IN FREE SPACE "> 


017554 


003362 






BGT 


10$ 


iBR IF NO 


017556 


005737 


003130' 




TST 


KTFLG 


1 GOT KT? 


017562 


001472 






BEQ 


551 


1 NO. GET OUT. 


017564 


004737 


017070' 




JSR 


PC.KTON 


1 YES. ENABLE KT. 


017570 


005000 






CLR 


RO 


iHIGH ORDER ADDRESS START 


017572 


013701 


003150' 




MOV 


PST32U.R1 


iGET >28K START ADDRESS (IN 32U BLOCKS) 




000006 






.REPT 


6 










ROL 


Rl 


(CONVERT BLOCKS TO WORDS 










ROL 


RO 


(MAKE IT DOUBLE PRECISION 










.ENOR 






017626 


042701 


000177 




BIC 


♦177, Rl 


(ALINE 4K BOUNDARY 


017632 


010046 






MOV 


RO. -CSP) 


(SAVE HIGH ORDER 


017634 


010146 






MOV 


Rl. -(SP) 


(SAVE LOU ORDER 


017636 


004737 


017130' 




JSR 


PC.SETMAP 


(SETUP PAR6 MAPPING REGISTER 


017642 


010004 






MOV 


R0.R4 


(COPY ADDRESS BIASED TO PAR6 


017644 


012601 






MOV 


(SP)» ,R1 


(RESTORE LOU ORDER IN NON PAR6 FORMAT 


017646 


012600 






MOV 


(SP)*.RO 


(RESTORE HIGH ORDER IN NON PAR6 FORMAT 


017650 


020314 




30>: 


CMP 


R3.(R4) 


(ABOVE 28K LOCATION EQUAL EXPO? 


017652 


001411 






BEQ 


32> 


(BR IF YES 


017654 


010037 


002234' 




MOV 


RO. ERRHI 


tSAVE HIGH ORDER IN ERROR 


017660 


010137 


002236' 




MOV 


RI.ERRLO 


(SAVE LOU ORDER IN ERROR 


017664 


010337 


002230' 




MOV 


R3.EXPD 


(SAVE EXPO FOR ERROR REPORT 


017670 


011437 


002232' 




MOV 


(R4).RECV 


(SAVE RECV FOR ERROR REPORT 


017674 


000421 






BR 


501 




017676 


062701 


000002 


32t: 


ADD 


«2.R1 


(UPDATE NON PAR6 ADDRESS 


017702 


005500 






ADC 


RO 


(MAKE IT DOUBLE PRECISION ADO 


017704 


062704 


000002 




ADD 


♦2.R4 


(UPDATE PAR FORMAT ADDRESS 


017710 


020427 


160000 




CMP 


R4. •160000 


(END OF PAR6 MAPPING AREA'' 


017714 


103755 






BLO 


30t 


(BR IF NO 


017716 


162704 


020000 




SUB 


♦20000.R4 


(BACKUP INTO PAR6 MAPPING BEGIN 


017722 


062737 


000200 


172354 


ADD 


♦200.8#KIPAR6 


(POINT TO NEXT 4K BLOCK >2eK. 


017730 


023737 


172354 


003130' 


CMP 


a«KIPAR6. KTFLG 


(END OF MEMORY? 


017736 


101744 






BLOS 


30» 


{BR IF NO 


017740 


004737 


017106' 


50»: 


JSR 


PC.KTOFF 


(TURN OFF MEMORY MAPPING 


017744 


000241 






CLC 


(SET FAILURE 


017746 


000403 






BR 


60 1 


(TURN OFF MEMORY MAPPING 


017750 


004737 


017106' 


55t: 


JSR 


PC.KTOFF 


017754 


000261 






SEC 


iSET SUCCESS 


017756 


000207 




60$: 


RTS 


PC 










.SBTTL 


REGSAV - SAVE 


R1.R5 ON STACK 



ROUTINE TO 

SAVE RL THROUGH R5 ON THE STACK 
CALLING SEQUENCE: 



TSV3 GLOBAL AREAS HACRO M1113 

REGSAV SAVE RI R5 ON STACK 



2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2665 
2686 
2667 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 



017760 
017760 
017762 
017764 
017766 
017770 
017772 
017776 
020000 
020002 
020004 
020006 
020010 
020012 



020014 
020014 
020020 
020020 
020022 
020024 
020026 
020050 
020032 
020034 



010446 
010346 
010246 
010146 
010546 

016605 000012 

004736 

012601 

012602 

012603 

012604 

012605 

000207 



104443 

000406 

020050' 

000022 

020052' 

000377 

000000 



FEB -64 10:58 



N6 



SEQ 076 



JSR 



R5. REGSAV 



THIS IS A COOROUTINE JHICH JF .NSFER CONTROL BACK TO 
THE CALLING ROUTINE. AT THE ^NO OF THE CALLING ROUTINE, 
:THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
REGISTERS. 

THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
CALLED VIA A JSR PC INSTRUCTION 



REGSAV: 



MOV 


R4.-(SP) 


MOV 


R3.-(SP) 


MOV 


R2.-CSP) 


MOV 


Rl.-CbP) 


MOV 


R5.-(SP) 


MOV 


10.(SP),R5 


JSR 


PC.OCSP)* 


MOV 


(SP)».R1 


MOV 


(SP)*,R2 


MOV 


rSP)*.R3 


MOV 


(SP)*.R4 
(SP)*.R5 


MOV 


RTS 


PC 



.SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 



I ♦ 



tROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
I INPUTS: 
I NONE. 
OUTPUTS: 

RO OCTAL NUMBER FROM THE OPERATOR 

I CALLING SEQUENCE: 

JSR PC. GETPAT 



i - 



GETPAT: 



1»: 



SAVREG sSAVE THE GENERAL 

GMANID DAT ASC . PATDAT .0.377. 0,377, NO 

TRAP CtGMAN 

BR 10000 » 

. WORD PATDAT 

.WORD T»C00E 

.WORD DATASC 

.WORD 377 

.WORD T$L0LIM 



REGISTERS 



B7 

TSV3 GLOBAL AREAS MACRO HlllS 07-FEB-84 10:56 SEO 079 

GETPAT GET 8 BIT PATTERN FROh OPERATOR 



020036 000577 .WORD TIHILIH 

020040 10000* : 

2705 020040 BNCOMPLETE It iRETRt IF ERROR 

020040 105567 BCC II 

2704 020042 015700 020050' MQV PATDAT.RO iDATA PATTERN FROM OPERATOR 

2705 020046 000207 RTS PC iRETURN TO CALLER 
2706 

2707 I ♦ 

2700 iLOCAL DATA AREA 

2709 |. 

2710 

2711 020050 000000 PATDAT: .UORD 0 i TEMPORARY STORAGE FOR DATA 

2712 020052 105 116 124 DATASC: .ASCIZ ENTER DATA PATTERN' 
2715 .EVEN 

2714 

2715 .SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 

2716 t* 

2717 I 

2718 {ROUTINE TO ISSUE A MENU AND GET 

2719 I THE OPERATOR'S RESPONSE. 

2720 I 

2721 I INPUTS: 

2722 t 

2725 I RO ADDRESS OF ASCIZ STRING OF MENU 

2724 I Rl MAXIMUM ALLOWABLE OPERATOR RESPONSE 

2725 I 

2726 I OUTPUTS: 

2727 , 

2728 I RO NUMBER OF TME OPERATOR'S SELECTION 

2729 I 
2750 I- 
2751 



2752 


020076 






GETSEL: 








2755 


020076 








SAVREG 




iSAVE GENERAL REGISTERS 


2754 


020102 


010002 






NOV 


R0.R2 


(SAVE THE MENU ADDRESS 


2755 


020104 


010205 




11: 


MOV 


R2.R5 


1 START OF MENU STRING 


2756 


020106 


005715 




21: 


TST 


(R5) 


lENO OF ASCII ? 


2757 


020110 


001412 






BEQ 


5t 


•BRANCH IF ALL LINES DISPLAYED 


2758 


020112 








PRINTF 


•SELASC.(R5)» 


1 DISPLAY THE MENU 




020112 


012546 






HOV 


(R5)»,-(SP) 






020114 


012746 


020262' 




HOV 


•SELASC.-(SP) 






020120 


012746 


000002 




MOV 


♦2.-(SP) 






020124 


010600 






MOV 


SP.RO 






020126 


104417 






TRAP 


CIPNTF 






020150 


062706 


000006 




ADD 


«6.SP 




2759 


020154 


000764 






BR 


2t 




2740 


020136 






51: 


GMANIO 


MENASC.MENRES.O. 


-1.0. l.NO 




020156 


104445 






TRAP 


CIGMAN 






020140 


000406 






BR 


100011 






020142 


020516' 






.WORD 


MENRES 






020144 


000042 






.UORD 


TtCODE 






020146 


020267' 






.WORD 


MENASC 






020150 


177777 






.WORD 


-1 






020152 


000000 






.UORD 


TILOLIM 






020154 


177777 






.WORD 


TIHILIM 






020156 






lOOOlt: 








2741 


020156 








BNCOMPLETE 11 


iRETRY IF ERROR 



C7 



SEo oao 



2742 
2745 
2744 
2745 



2746 
2747 
2748 
2749 

2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2775 
2774 
2775 
2776 
2777 
2778 

2779 

2780 



2781 
2782 
2783 
2784 

2785 



020156 
020160 
020164 
020166 
020170 
020170 
020174 
020200 
020202 
020204 
020210 
020212 
020214 
020262 
020267 



103552 
013700 
020001 
101411 

012746 
012746 
010600 
104417 
062706 
000735 
000207 
045 
045 
105 



020316' 



020214' 
000001 



000004 



116 
116 
156 



020316 000000 



51: 

045 HENERR 
045 SELASC 
164 HENASC 

MENRES: 



BCC 

MOV 

CMP 

BLOS 

PRINTF 

nov 
nov 
nov 

TRAP 

AOO 

BR 

RTS 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 



iGET THE OPERATOR' S REPLY 
I COMPARE TO MAXlHun ALLOWED 
I BRANCH IF OK 
I DISPLAY ERROR MESSAGE 



11 

MENRES.RO 
RO.Rl 
51 

•MENERR 
•MENERR.-(SP) 
♦l.-(SP) 
SP.RO 
CIPNTF 
♦4,SP 

II iRETRY 

PC iRETURN TO CALLER 

'«N*A **• M«nu Selection Too Largo *•*• 

'Entop Monu S«l«ction: ' 

.WORD 0 



.SBTTL CHKMAN • CHECK MANUAL INTERVENTION LEGALITY 

ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
IM>UT: 



NONE. 



OUTPUT: 



CARRY 



SIDE EFFECTS: 



0 MANUAL INTERVENTION NOT ALLOUED 

1 MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOUED. 



020320 
020320 
020324 
020324 
020326 
020326 
020530 
020330 
020334 
020340 
020342 
020344 
020350 
020352 

020354 



CHKMAN: 



L04450 
105411 

012746 020354' 
012746 000001 
010600 
104417 

062706 000004 

000241 

000207 



SAVREG 
MANUAL 

TRAP CIMANI 
BCOMPLETE It 



045 



116 



II: 

045 NOMAN: 



BCS 
PRINTF 
MOV 
MOV 
MOV 
TRAP 
ADD 
CLC 
RTS 

.ASCIZ 

.OVOfl 



II 

•NOMAN 

♦NOMAN. (SP) 

•l.-(SP) 

SP.RO 

CIPNTF 

M.SP 

PC 



I SAVE THE REGISTERS 

I SEE IF MANUAL INTERVENTION OK 

I BRANCH IF ALLOWED 

{PRINT THE WARNING MESSAGE 



I CLEAR CARRY FOR ERROR 
I RE TURN 



•mtfk *«* Manual Intorvontion net Allettoil - Tost Abortod ««« 



TSVS GLOBAL AREAS 
CHKMAN 



D7 



SAL AREAS MACRO M1113 07-FEB 84 10:56 

CHECK MANUAL INTERVENtlON LEGALITY 



SEQ 081 



c • w 








fro* 








C ' OO 








P7II4 








C ' TV 








97Q1 








P7QP 








974Y 

C 1 TO 












M 1 AX7 


nnxi < 






1 4^7X7 




97M 




m X7n9 




5707 




t#^7X7 
XOC r J r 


nnnnn7 


97M 












AAI X7X 








wXO r W 


UvOXC£ 






MY70fl 

wOO f W 


AAXI ' 
WwXC^ 






XOc r W 








0100X7 
VX>A/w f 


vVdXcO 


















2806 








2807 








2808 








2809 








2810 








2811 








2812 








2613 


020536 






2614 


020536 


An*W>X7 


<v>xi xe\> 

\A/OXOV 


2615 020542 


OOSAX7 


%A/dXdC 


2616 


020546 


OP57P7 




2817 


020554 


XvX^Dd 




2618 


020556 




UWeXcV 


2819 020564 


1 A1 AA7 




2820 


020566 


vXO r^V 


WWW* 


2821 


020572 


ftl 37X7 
VXc r O r 


veUDO* 


2822 


020600 


>A/^ f O f 


X r r3rc 


2823 


020604 






2824 


020606 


A1 X7X7 

VXO f O r 


WeXCV 


2825 


020614 


OA97X7 
V^c r J f 


nnoi 77 


2826 


020622 


wX%A/0 f 




2827 


020626 






2828 


020630 


VXC ' vx 


1 73XAO 
X ' tO^W 


2829 020634 


wXc 'OX 


W f f 


2830 


020642 


VX^VcX 




2831 


020644 




wueuu 


2832 


020650 


020027 


002000 


2833 


020654 


001367 




2834 


020656 


012741 


177600 


2835 


020662 


000410 




2836 








2837 


020664 


012716 


020700' 


2838 


020670 


000002 




2839 








2840 








2841 


020672 


012716 


020726' 



.SBTTL ENVIRN • SETUP FREE DIAGNOSTIC SPACE 
! SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 
ENVIRN: 



003122' 
003124' 
003124' 101: 



40t: 



MEMORY 


AO 




TRAP 


CIMEM 




MOV 


RO.FREE 


1 GET 1ST FREE ADDRESS... 


ADD 


♦2. FREE 




MOV 


CRO).FRESIZ 


I...AND WORD COUNT. 


SUB 


♦4.FRFS1Z 




MOV 


LtUNir.R2 


1 GET NUMBER OF UNITS 


SUB 


♦7.FRESIZ 


t TAKE AUAV 7 WORDS PER UNIT 


DEL 


R2 


BNE 


101 




MOV 


FREE.RO 


iGET FIRST FREE ADDRESS 


ADO 


FRESIZ.RO 


1 POINT TO LAST FREE ADDRESS 


SUB 


•2.R0 


{BACKUP 1 WORD 


MOV 


RO.FREEHI 


•STORE LAST FREE ADDRESS 


RTS 


PC 


tRETURN 



.SBTTL KTINIT - SETUP KTll MEMORY MANAGEMENT REGISTERS 



ROUTINE TO INIT KT-11 



KTINIT: 



001577 
001777 

000004 



003130' 
003130' 



177740 II: 



2t. 



31 ! 



CLR 


KTFLG 


1 INIT >26K MEMORY FLAG 


CLR 


KTENABLE 


1 INIT TEST >26K FLAG 


C»*» 


LtHlME.«1577 


1 GOT ENOUGH MEMORY (>2eK)? 


BLOS 


9t 


1 NO. 


CMP 


L»HIME.«1777 


1 GOT ENOUGH MEMORY (>S2K)? 


BLOS 


91 


1 NO. 


MOV 


OfERRVEC.RO 


1 SAVE OLD ERR VEC PTR. 


MOV 


•2I.8«ERRVEC 


1 SET ERR VEC PTR. 


TST 


MSRO 


1 GOT KTll? 


NOP 




1 (TRAP IF NO). 


MOV 


LIMINE, KTFLG 


1 YES. SET KT FLAG. 


BIC 


♦I 77. KTFLG 




MOV 


RO.atERRVEC 


! RESTORE OLD ERR VEC PTR. 


aR 


RO 


1 RO - AR DATA. 


MOV 


•KIPMO.Rl 


1 Rl - KI REGS PTR. 


MOV 


♦77406. -40(R1) 


1 SET DESCRIPTOR REG. 


MOV 


RO.(Rl)* 


1 SET KIPAR REG. 


AOO 


•200.RO 


1 BUMP AR DATA BY "4K". 


CMP 


R0.«2000 


1 AT "I/O"? 


BNE 


11 


1 NO. 


nov 


•177600. -CRD 


1 YES. SET KTPAR7 FOR I/O. 


BR 


91 




MOV 


•6I.CSP) 


1 SET UP RETURN 


RTI 


1 RTI TO NEXT LOCATION 


MOV 


•101. (SP) 


1 SET UP RETURN 



TSV5 
KTINIT 

2842 
2S4S 
2844 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2852 
2855 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2666 
2867 
2668 
2869 
2870 
2871 
2872 
2673 
2674 
2875 
2676 
2677 
2878 
2879 
2660 
2661 
2662 
2664 
2666 
2867 
2666 
2869 
2690 
2691 
2692 
2693 
2894 
2695 
2696 
2697 
2898 
2899 
2900 



GLOBAL AREAS MACRO nillS 07-FEB-64 10:58 
SETUP KTll MEMORY MANAGEMENT REGISTERS 



E7 



SEQ 082 



020676 000002 

020700 010037 000004 



020704 
020704 

020710 
020716 
020724 
020726 
020732 



021004 

021010 
021012 
021014 
021016 



021020 
021022 
021024 



013700 000004 

012737 02C672' 000004 

042737 000001 170200 
000240 

010037 000004 
000207 



6t: 
9t: 



10»: 



RTI 
MOV 



MOV 
MOV 
BIC 
NOP 
MOV 
RTS 



RO.MERRVEC 



04ERRVEC.ro 

•St.MERRVEC 

•BZTO.MMMRO 

RO.MERRVEC 
PC 



I RTI TO NEXT LOCATION 

I RESTORE OLD ERR VEC PTR. 



I SAVE OLD ERR VEC PTR. 

I SET ERR VEC PTR. 

I BE SURE UNIBUS MAP IS OFF 

I RESET VECTOR BACK TO ERROR POINTER 



SUBROUTINE TO SET EXTENDED FEATURES SUITCH 

R«quir«« that SOFINIT and URTCHR hav* to—n dona pravieua to call. 



INPUTS: 

R5 
OUTPUTS: 

Tha Extandad Faaturaa SMitch ia aat. 



CURRENT UNIT NUMBER 



020734 








INVERT: 




020734 


005737 


002224' 






TST 


020740 


001020 








BNE 


020742 


012737 


100206 


021010* 




MOV 


020750 


012737 


021020' 


021012' 




MOV 


020756 


012737 


000006 


021016' 




MOV 


020764 


012737 


100010 


021020 




MOV 


020772 


012704 


021010' 






MOV 


020776 


004737 


010472* 






JSR 


021002 


000207 






19: 


RTS 



EXTFEA 
II 

«100206.CMDPKT 

•USMBK.CM0PKT»2 

«6.CM0PKT*6 

•100010. USMBK 

•CnOPKT.R4 

PC. URTCHR 

PC 



COMMAND PACKET. 
.BLKB I0-<.-TSV2e7> 



IS SUITCH SET? 

YES. EXIT STAGE RIGHT! (or tha naxt 

URT SUB -SYS MEM CMO 

MSG BUF ADOR 

BYTE COUNT 

INVERT THE SUITCH 

SET CMDPKT INTO R4 

DO IT 

RETURN 



ona outa town ! ) 



000000 
000000 
000000 
000000 



000000 
000000 
000000 



CMOPKT: 



0 
0 
0 
0 



I 1ST UORD IS TS05 C0MMM4D. 
l2ND UORD IS THE BUFFER LOU ADDRESS. 
tSRD UORD IS THE BUFFER HIGH ADDRESS. 
|4TH UORD IS THE BYTE/RECORO/FILE COUNT. 



URITE SUB -SYSTEM MEMORY CHARACTERISTIC BLOCK. 



USMBK:: 



I ♦ 



0 
0 
0 

.EVEN 



I 1ST UORD:: SEL 0 
t2ND UORDit SEL 2 
iSRD UORD:: SEL 4 



F7 



TSV5 - GLOBAL AREAS MACRO Ml 115 07 -FEB -84 10:58 

KTINI7 SETUP KTll MEMORY MANAGEMENT REGISTERS 



SEQ 085 



2901 
2902 
2905 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 



2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 



021026 

021026 
021032 
021036 
021042 
021046 

021054 
021056 
021062 
021064 
021072 
021074 
021100 
021102 
021106 
021110 
021116 
021120 
021126 
021130 
021134 
021136 
021144 
021146 
021152 
021160 
021166 
021170 
021174 
021176 
021200 
021200 
021204 
021210 
021212 
021214 
021220 



005037 
005037 
005037 
032737 

001050 
005737 
001407 
023727 
103406 
004737 
000427 
005737 
001413 
023727 
101027 
023727 
103403 
004737 
000411 
023727 
103414 
004737 
062737 
032737 
001014 
005237 
000411 
000410 

012746 
012746 
010600 
104417 
062706 
000207 



SUBROUTINE TO CHECK UETHER OR NOT WE'LL TEST NXM 



INPUTS: 
OUTPUTS! 



MEHCK: : 



003134' 
003136' 
003140' 

170000 002120' 



003144' 

002120' 007777 
021222' 

003142' 1«: 

002120' 005777 2»: 
002120' 003777 
021222' 

002120' 001577 41: 
021222' 

000077 003140* 
177774 003140' 13$: 

005134' 

14 1: 

005452' 
000001 



00C004 



Th« NXMFLG !• Mt if m* can 


t«st . 






SAVREG 




1 bHVc Inc. RcblbTcRb 


CLR 


NXMFLG 


t CLcnR Inc. r LAb 


CLR 


NXMUO 




CLR 


NXnHI 


iCLcAR Trie icbT ADDHcbb HI 


ATT 

BIT 


#170000 1 L IHinE 


iCrlfcUK rON nuHC IHAN lo DlTb XNDICATcO 






1 r RUn Tnt bUKcRVXbUR 


BNE 


141 


* DD TC MAD Onv C 

t dR • Ir nw DUX c TL . 


TST 


T2SB 


1 lb IT M KROLcbbOR TTPc d7 




11 




CMP 


LIHIMt ,•7777 


S URcATcR THAN I2oK 


BLO 


21 


1 NU 


JSR 


PC.NXMTST 


sbcTUP THE AOOREbb 


BR 


19> 


. CCT TLJC Cl A/* AkA CWTT 

J SET THE rLAU mHO EXIT 


TST 


T25A 


lib IT A PROCEbbOH TYPE A? 


BEli 




|N0 


CMP 


L»nlnt ,»5777 


1 GREATER THAN tqK 


BHI 


141 


tTEbflc3A/2oB WITH I2oK nEnORT 


CMP 


LlnIME,#3777 


luHEATER IHAN o4K BUT LEbb THAN ^cln.i 


Qi n 

DLU 




- >.tB ^UCOW ^AV 


JSR 


PC.NXMTST 


.eCTiA TUC AAff^OCCC 

tbETUP THE AODREbb 


BR 


131 


CCT TLJC Cl A^m CwTT 

ibET THE rLAU AND EXIT 


CMP 


L$HIME,#1577 


1 GREATER THAN 24K BUT LEbb THAN 64K? 


BLO 


14$ 


S riu , 1 CLI- 1 fieri fVMJ CAX 1 MX in r WWJ ULCnn 


JSR 


PC.NXMTST 


1 SETUP THE ADDRESS 


ADO 


#77.NXMHI 


iFOOL THE 11/02 C 11/03 


BIT 


•177774, NXMHI 


jANY MORE THAN 18 BITS SET? 


BNE 


15$ 


iBR. IF MORE THAN 18 BITS SET 


INC 


NXMFLG 


jSET THE FLAG 


BR 


15$ 


lEXlT 


BR 


15$ 


iNOP FOR PRINTOUT 


PRINTF 


•NOMEM 




MOV 


•NOMEM,-(SP) 




MOV 


•1,-(SP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADO 


•4.SP 




RTS 


PC 


t RETURN 



15$: 



SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
OUTPUTS :NXMLO. NXMHI iSETUP WITH NXM ADDRESS 



TSV3 - GLOBAL AREAS . 

KTINIT - SETUP KTll MEMORY 



MACRO M1113 07-FEB-84 10 
lORY MANAGEMENT REGISTERS 



56 



2953 


021222 


013701 


002120' 


NXMTST : MOV 




021226 


062701 


00020O 


ADO 






042701 


00017 7 


BIC 










MOV 






QOQQOo 




.RfcPT 










API 

ASL 










.ENDR 




021254 


010137 


AAV 4 VX a 

00S1S6' 


MOV 






OUOvle 




• Htr' 1 












2963 








.ENOR 


2964 


021304 


042702 


177700 


BIC 


2965 


021310 


010237 


003140' 


MOV 


2966 


021314 


000207 




RTS 


2967 










2968 










2969 










2970 










2971 


021316 






ENDMOO 



G7 



SEO 084 



LIhlME.Rl 

«200.R1 

♦177. Rl 

R1.R2 

6 

Rl 

Rl.NXMLO 

10. 

R2 

♦177700, R2 

R2.NXMHI 

PC 



iGET TOP OF MEMORY 

iMAKE IT I/O BLOCK OR OTHER NXM 

iRESAVE RESULTS 

I PUT IN PLACE FOR XFER 

iSAVE TEST ADDRESS LOU 

I PUT IN PLACE FOR XFER 

t DON'T WANT ILA! 

tSAVE TEST ADDRESS HIGH 

I RE TURN 



TSV4 MISCELLANEOUS SECTIONS MACRO M1113 07-FEB-84 10:58 
KTINIT - SETUP KTll MEMORY MANAGEMENT REGISTERS 



6 

7 

8 021316 
021316 

9 
15 
16 

17 021316 
021316 

18 021316 

19 021326 
20 

21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 

34 021326 
021326 

35 021326 

36 021332 

37 021336 

38 021344 

39 021350 

40 021354 

41 021360 
021360 
021364 

42 021366 
021366 

43 021370 

44 021376 

45 021400 

46 021404 

47 021406 

48 021412 

49 021414 

50 021420 

51 021422 

52 021430 

53 021432 
021432 
021434 

54 021436 
021436 
021442 

55 021444 
021444 

56 021446 



TSV4: : 



. TITLE TSV4 
BGNMOO TSV4 



H7 



MISCELLANEOUS SECTIONS 



SEQ 08S 



177777 



005037 
005037 
012737 
005037 
005037 
005037 

012700 
104447 

103023 
023737 
103070 
005737 
100472 
013701 
006301 
005761 
001516 
032761 
001060 

104432 
000416 

012700 
104447 

103052 



.SBTTL PROTECTION TABLE 
BGNPROT 

LtPROT:: 

177777 177777 .WORD -I. -1. -1. -I 

ENDPROT 

.SBTTL INITIALIZE SECTION 



tNO DEVICE PROTECTION REQUIRED. 



!thE INITIALIZE SECTION CONTAINS 
I AT THE BEGINNING OF EACH PASS. 



THE COOING THAT IS PERFORMED 



"START" OR "RESTART". SET QUICK -PASS FLAG AND BUS - INI T, 
"CONTINUE". NOTHING IS REQUIRED. 



I 

I IF 
I IF 
I 

i - - 

! INSERT TEMPORARY JUMP TO OOT 



002224' 
003134' 
006170' 
003152' 
003132' 
002300' 

000036 



002200' 
00311C' 
002200' 
003174' 
040000 



000035 



LtlNIT: 
40$: 



002176' 



BGNINIT 

'CLR 
CLR 
MOV 
CLR 
CLR 
CLR 
READEF 
MOV 
TRAP 
BNCOMPLETE It 



EXTFEA 
NXMFLG 

•EPRTl.EPRTSU 
SIFLAG 
KTENABLE 
RAHSIZ 
•EF. CONTINUE 
«EF. CONTINUE. RO 
CtREFG 



002012' 



003174' 



BCC It 

CMP UNITN.LtUNIT 

BHIS 4t 

TST OUFLG 

BMI NXTU 

MOV UNITN.Rl 

ASL Rl 

TST ERTABL(Rl) 

BEQ SETU 

BIT «6IT14.ERTABL(R1> 

BNE NXTU 

EXIT INIT 

TRAP CtEXIT 

.WORD L10030-. 

It: REAOEF «EF.NEU 

MOV «EF.NEU,R0 

TRAP CtREFG 
BNCOMPLETE NXTU 

BCC NXTU 

REAOEF «EF. START 



I SET UP PRIMARY MESSAGE FOR REPLACEMENT 

s CLEAR "SOFT INIT" FLAG 

t CLEAR TEST ABOVE 28K FLAG 

(CLEAR RAM SIZE FOR RAMERR ROUTINE 



(UNIT IN RANGE? 
iBR IF NO. 
{DROPPED UNIT? 
iBR IF YES 



: DROPPED? 

I DO NOTHING IF "CONTINUE", 



J TAKE NEXT UNIT IF NOT NEU PASS. 



TSV4 • MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



17 
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57 



021446 
021452 
021454 
021454 
50 021456 
0214:36 
021462 

59 021464 
021464 

60 021466 

61 021466 
021466 

62 021470 

63 021474 

64 021500 

65 021504 
66 

67 
66 

69 021510 

70 021514 

71 021514 

72 021522 

73 021526 

74 021532 

75 021536 

76 021540 

77 021544 
76 021546 
79 021550 
60 021554 
61 

62 021560 

63 021560 
84 021566 

65 021572 
021572 

66 021574 

67 021600 

68 021606 

89 021610 

90 021616 

91 021620 
021620 

92 021622 
95 021624 

94 021624 

95 021632 

96 021634 

97 021640 

98 021642 
021642 

99 021644 
100 021650 
lOl 

102 021652 
021652 



012700 000040 
104447 



103404 

012700 
104447 

103031 



104433 

005037 
005037 
005037 
005037 



000037 



21: 



NOV tEF. START. RO 
TRAP CIREFG 
BCOMPLETE 21 
BCS 2» 
REAOEF tEF. RESTART 
MOV tEF. RESTART.ro 
TRAP CIREFG 
BNCOMPLETE 311 
BCC 31 • 



002212' 
002220' 
003142' 
003144' 



005037 003376' 



012737 
004737 
004737 
012700 
005020 
020027 
103774 
000404 
005037 
000137 



177777 002202' 
020450' 
020536' 
003174' 

003374' 



002202' 
021624' 



I 
I 
I 

201 i 



30ti 



31t: 



4»: 



BRESET 

TRAP 

CLR 

CLR 

CLR 

CLR 

MOV 

MOV 

JMP 

CLR 

MOV 

JSR 

JSR 

MOV 

CLR 

CMP 

BLO 

BR 

CLR 

JMP 



CIRESET 

TSTCNT 

FATFLG 

T23A 

T23B 

#340. -CSP) 
#201. -CSP) 
O.OOT 
SKIPT 

#-i.avp 

PC.ENVIRN 
PC.KTINIT 
4ERTABL.ro 
(R0)» 

RO.«ERTABE 

30t 

4» 

QVP 

PASRPT 



012737 


177777 


002200' NEUPAS: 


MOV 


•-1.UNITN 


005037 


002216' 




CLR 


DEVCNT 






NXTU: 


BREAK 




104422 






TRAP 


CIBRK 


005237 


002200' 




INC 


UNITN 


023737 


002200' 


002012' 


CMP 


UNITN.LtUNIT 


103423 






BLO 


SETU 


012737 


177777 


003110' 


MOV 


#-1.0UFLG 


'XXMOl 






BR 


lit 








DOCLN 




104444 






TRAP 


CtDCLN 


000240 




lit: 


NOP 








PASRPT: 






023727 


002012' 


000001 


CMP 


LtUNIT.*l 


101752 






BLOS 


NEUPAS 


005737 


002216' 




TST 


OEVCNT 


001747 






BEQ 


NEUPAS 








RFLAGS 


RO 


104421 






TRAP 


CtRFLA 


032700 


000100 




BIT 


•ISR.RO 


001343 






BNE 


NEUPAS 








DORPT 




104424 






TRAP 


CtDRPT 



I 1ST PASS. BUS-INIT... 
I BUS RESET. 

•NUMBER OF TESTS RUN IN PASS 
I CLEAR FATAL ERROR COUNT 
I CLEAR PROCSSOR TYPE A FLAG 
{CLEAR PROCSSOR TYPE B FLAG 

iRETURN TO DEBUGGER 
iBSENTER THE DEBUGGER 
CLEAR THE SUBTEST "SKIPPER" 

t... QUICK VERIFY... 

I SET ENVIRONMENT. 

{INITIALIZE KT MEMORY MANAGEMENT 

t CLEAR THE ERROR TABLE 



iGO REPORT THE STATUS 

ilNIT UNIT NUMBER. . . 

{CLEAR COUNT OF DEVICES RUNNING 

{...AND SET NEXT UNIT NUMBER. 



{ABORT. NO MORE UNITS. 



{HOU MANY UNITS SELECTED? 
{BR IF ONLY 1 
{ARE ANY STILL RUNNING? 
{BR IF NO 



{SHOULD UE PRINT STATISTICS 
{BR IF NO 



J7 



TSV4 MISCELLANEOUS SECTIONS 
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SEQ 067 



103 021654 

104 0216S6 
105 

106 021656 
021656 
021662 

107 021664 
021664 

106 021666 

109 021672 

110 021676 

111 021700 
112 

113 021704 
114 

115 

116 021706 

117 021712 

118 021716 
119 

120 021722 

121 

122 

123 

124 

125 

126 

127 

126 021722 

129 021726 

130 021730 

131 021736 

132 021742 

133 021750 

134 021752 
021752 

135 021754 

136 021760 

137 021762 
021762 
021766 
021772 
021776 
022000 
022002 

138 022006 

139 022006 

140 022012 

141 022016 

142 022020 
14S 022024 

144 0220SC 

145 022032 

146 022036 

147 022044 
146 

149 



000741 



013700 
104442 

103342 
005037 
005237 
012001 
010137 

012001 



010137 
012721 
013721 



013701 
006301 
052761 
005037 
023727 
101416 

104421 
032700 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

005037 
013701 
010102 
062702 
004737 
103005 
010137 
012737 



101: 

SETU: 



BR 



NEUPAS 



002200* 



003110' 
002216' 

002204' 



002206' 
016026' 
002210' 



GPHARO UNITN.RO 

MOV UNITN.RO 

TRAP CIGPHRD 
BNCOMPLETE NXTU 

BCC NXTU 

CLR DUFLG 

INC DEVCNT 

MOV (R0)».R1 

MOV Rl.CSRAODR 



It: 

I 

I 



MOV 

tMOV 

iMOV 

MOV 

MOV 

MOV 



TST 
BEQ 



CR0)*.R1 

(R0).R2 

R2.IPRI 

Rl.IVEC 

♦INTR.CRD* 

IPRI.CRD* 



QVP 



iGET UNIT N P-TABLE POINTER. 

I BR ir UNIT NOT AVAILABLE. 

» CLEAR "DROPPED" FLAG. 

tGET 1ST REGISTER ADDRESS. 

I ADDRESS OF REGISTERS OF UNIT UNDER TEST 

iGET VECTOR ADDRESS. 

iGET INTERRUPT PRIORITY 

I SET INTERRUPT PRIORITY. 

I SET INTERRUPT VECTOR POINTER... 

I... VECTOR... 

i . . .AND PRIORITY. 



1 1ST PASS ?? 

;N0. SKIP THE PASS 1 STUFF, 



002200' 

100000 003174' 
005602' 

002012' 000001 



001000 



I 1ST PASS. CHECK THAT DEVICE ADDRESSES ARE VALID. AND 
I THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 
t 



002200' 
022054' 
000002 



000006 

003112' 
002204' 

000002 
016206' 

003112' 

177777 003110' 



101: 



MOV 


UNITN.Rl 




ASL 


Rl 




BIS 


«6IT15.ERTABL(R1) 


:SAY DEVICE RUNNING 


CLR 


EXTA 


t CLEAR ERROR EXTENSION FLAG. 


CMP 


LIUNIT.*1 


lARE UE TESTING MULTIPLE UNITS? 


BLOS 


101 


iBR IF NO. 


RFLAGS 


RO 


sYES -- GET OPERATOR FLAGS. 


TRAP 


CIRFLA 




BIT 


4PNT.R0 


{SHOULD UE PRINT UNIT «? 


BEQ 


lot 


iBR IF NOT. 


PRINTF 


4PUNIT.UNITN 


t PRINT THE UNIT • 


MOV 


UNITN.-CSP) 




MOV 


•PUNIT.-CSP) 




MOV 


•2.-(SP) 




MOV 


SP.RO 




TRAP 


CtPNTF 




ADD 


«6.SP 




CLR 


NOOEV 




MOV 


CSRAODR.Rl 


1 ADDRESS OF FIRST REGISTER 


MOV 


R1.R2 


i START OF REGISTERS 


ADO 


«TSSR.R2 


1 ADDRESS OF TSSR REGISTER 


JSR 


PC.XNXM 


iTEST BOTH CONTROLLER REGISTERS 


BCC 


2t 


I...AND BR IF ALL OK. 


MOV 


Rl.NODEV 


(FLAG DEVICE AS NON-EXISTENT 


MOV 


♦-1. DUFLG 


iDROP THIS UNIT. 



2t: 

(FINALLY. SET CPU PRIORITY AND WE'RE DONE. 



I<7 
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SEQ 088 



150 

151 022044 
022044 

022050 

152 022052 
022052 
022052 

15S 

154 022054 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 022122 
022122 

165 022122 

166 022124 

167 022126 

168 022154 

169 022142 
022142 
022144 
022150 
022154 
022156 
C22160 

170 022164 
022164 
022166 

171 022170 
172 

173 

174 022216 
022216 
022216 

175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 

186 022220 
022220 

187 022220 

188 022226 

189 022230 

190 022232 



012700 
104441 



104411 
045 



000000 



116 



i 

5$: 



L 10030: 



SETPRI «PRIOO 
nOV tPRIOO.RO 
TRAP CISPRI 
ENOINIT 



lENABLE INTERRUPTS. 



TRAP 



OINIT 



045 PUNIT: 



I ♦ ♦ 



.ASCIZ 
.EVEN 



»*** TESTING UNIT «02i(A 
SBTTL ADD AND DROP UNITS SECTIONS 



; THE AOO-UNIT SECTION CONTAINS THE COOING THAT CAUSES A DEVICE 

I TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME. 

i OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 



010001 
006301 
052761 
042761 

010046 
012746 
012746 
010600 
104417 
062706 

000167 
000026 
045 



104452 



LIAU: 



100000 
040000 



022170* 
000002 



000006 



116 



003174- 
003174- 



045 II: 



BGNAU 




NOV 


RO.Rl 


ASL 


Rl 


BIS 


♦100000. ERTABL(Rl) 


BIC 


•40000. ERTABL(Rl) 


PRINTF 


#11. RO 


nov 


RO.-(SP) 


nov 


♦ll.-CSP) 


nov 


♦2.-(SP) 


nov 


SP.RO 


TRAP 


CIPNTF 


ADO 


#6.SP 


EXIT 


AU 


.UORD 


J<JMP 


.UORD 


L 10031 -2-. 


.ASCIZ 


/«NitA UNIT HOtfA ADDED/ 


.EVEN 




ENDAU 


1 UNUSED. 


TRAP 


CIAU 



i GET UNIT TO BE ADDED (RO) 
I MAKE IT A UORD INDEX 
I SET THE "ACTIVE" BIT 
t CLEAR THE "DROPPED" BIT 



L 10031: 



THE DROP -UNIT SECTION CONTAINS THE COOING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 

SUPVSR Does THE "DROPPING". THIS IS JUST TO TELL THE MAN. 
"DROPPED" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "ADD" 
COMMAND. OTHERWISE REMAIN INACTIVE. THE "DISPLAY " COMMAND 
WILL PRINT ALL DROPPED UNITS. AND THE P- TABLES OF THOSE 
UHICH ARE STILL ACTIVE. 

UPON ENTRY. RO CONTAINS THE UNIT TO BE DROPPED. 



012737 
010001 
006301 
052761 



177777 003110- 
140000 003174- 



LIDU: 



BGNOU 

MOV 
MOV 
ASL 
BIS 



•-1.DUFLG 

RO.Rl 

Rl 

«140000,ERTABL(R1) 



I SAY DROPPED 



TSV4 
AOO AND 



L7 
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SEQ 089 



191 022240 

192 022246 
022246 
022250 
022254 
022260 
022262 
022264 

193 022270 
022270 
022272 

194 022274 
195 

196 022324 
022324 
022324 

197 
198 
199 

200 022326 
022326 

201 022326 

202 022332 

203 022336 

204 022342 

205 022344 
022344 
022350 
022352 
0223S6 
022360 
022364 
022366 
022372 

206 022374 

207 022376 

208 022400 

209 022404 

210 022404 
022404 
022404 

211 
212 
213 
214 
215 
216 
217 
218 

219 022406 
N>22406 

220 022406 

221 022412 

222 022416 
223 

224 

225 022420 



000240 000240 000240 
010046 

012746 022274- 
012746 000002 
010600 
104417 

062706 000006 



240.240.240 
PRINTF «1«.R0 



; ????????? 



000167 
000030 

045 116 



104453 



045 It: 



013705 
012703 
004737 
103420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
004737 



104461 



002204' 

000550 

016060' 



000372 
002116' 
177772 
177756 

017014- 



L 10032: 



MOV 

MOV 

MOV 

MOV 

TRAP 

AOO 

EXIT 

.WORD 

.WORD 

.ASCIZ 

.EVEN 

ENDDU 

TRAP 



RO.-(SP) 

♦1$.-(SP) 

♦2.-(SP) 

SP.RO 

CIPNTF 

«6.SP 

DO 

JUMP 
L10032-2-. 

/«MA UNIT KOtfA OROPPEO/ 



ClOU 



Tauto-drop code SECTICM. 

i - - 



LI AUTO: 
101: 



BGNAUTO 






MOV 


CSRADDR.R5 


(POINT TO DEVICE REGISTER 


MOV 


•360., R3 


1 ENOUGH TIME FOR 2400- REEL 


JSR 


PC.MAITF 


tUAIT FOR SSR TO SET 


BCS 


201 


iLEAVE WHEN SSR IS SET 


DELAY 


250. 


tUAIT FOR .25 SECONDS 


MOV 


♦250.,(PC)» 


.WORD 


0 




MOV 


L»DLY.(PC)» 




.WORD 


0 




DEC 


-6(PC) 




BNE 


. -4 




DEC 


-22( PC) 




BNE 


.-20 




DEC 


R3 


;BUMP COUNTER OOUN 


BNE 


101 


:KEEP GOING 


JSR 


PC.CKOROP 


sTRY AND DROP UNIT 


ENOAUTO 




i UNUSED. 


TRAP 


CIAUTO 





013705 002204' 
005737 003110- 
100405 



012765 000000 000002 



20t: 
L 10033: 

1 

.SBTTL CLEAN-UP AND REPORT COOING SECTIONS 

!*THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 

t EXECUTED AT THE END OF EACH PASS (OR SUB -PASS). 

s USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 

' BGNCLN 
L (CLEAN: : 

MOV CSRA0DR.R5 

TST DUFLG 

BMI II 



MOV 



•0,TSSR(R5) 



t POINT TO DEVICE REGISTER 
, "DROPPED" FLAG IS SET ON... 
i...ANO GROSS CONTROLLER FAULT... 
(...DON'T TRY TO XCT CLEANUP CODE. 

1 00 SOFT INIT 



M7 



SEQ 090 



226 


022426 


004737 


016060' 


JSR 


PC.UAITF 






227 


022432 




1>: 






ccO 




1 Ad412 




2$ : ENOCLN 
L 10034: 

TRAP 


CtCLEAN 














t ♦♦ 
















: THE REPORT COOING SECTION CONTAINS THE 


231 








i "PRINTS" CALLS THAT GENERATE 


STATISTICAL REPORTS. 


P32 








1 - - 








233 

C W W 


vcc^ 
vcc~ 






BGNRPT 

LIRPT: : 








234 








PRINTS 


♦OEVSUM 










VAC ' ••w 


022676' 


MOV 


#OEVSUM.-(SP) 










O 12746 

VAC ■ ^ V 


000001 


HOV 


♦1, -CSP) 








0PP444 


010600 




nov 


SP.RO 








022446 


104416 




TRAP 


OPNTS 








022450 


062706 

Wfc ' wv 


000004 

www • 


ADO 


•4.SP 






235 


022454 


010246 




MOV 


R2. -CSP) 






236 


022456 






MOV 


R3, -(SP) 






237 


022460 


010446 




MOV 


R4, -CSP) 






238 


022462 


012704 


003174' 


MOV 


«ERTABL,R4 


« 


GET START OF ERROR TABLE. 


239 


022466 


005003 




CLR 


R3 


• 


CLEAR UNIT NUMBER 


240 


022470 


011402 




1»: MOV 


(R4).R2 


i 


GET ERROR TABLE ENTRY C TEST IT 


241 


022472 


001467 




BEQ 


4> 


■ 
• 


ZERO IF UNIT NOT RUN 


242 


022474 

vcc~ • ~ 


100066 

X WWW 




BPL 


4$ 






243 

C~«J 


0PPA76 


05P70P 


O40000 


BIT 


4BIT14.R2 


9 


WAS UNIT DROPPED? 


244 


022502 


WAVX^ 




BNE 


2$ 


• 
■ 


BR IF YES 


245 


0225OA 

vcc«n/^ 




170000 

X • WW 


BIC 


•tC7777.R2 


• 
t 


GET ERROR COUNT FIELD 


246 


0225 lO 
022512 


010346 




PRINTS 

MOV 

MOV 


#DEV0NL.R3.R2 
R2, -CSP) 
R3. -CSP) 


t 
• 


PRINT 




022514 


012746 


022733' 

VCC • (^(^ 


MOV 


•DEVONL. '(SP) 








022520 




OOOO03 

WWW'* 


MOV 


•3. -CSP) 








022524 


VX WW 




MOV 


SP.RO 








022526 






TRAP 


C^PNTS 








022530 


06P706 
wc • w 


OOOOlO 

WW XV 


ADO 


•lO.SP 






247 


022534 


000446 

VW^ ^ w 




BR 


4$ 






246 


022536 


020227 


1COOOO 

XwWW 


2$ : CMP 


R2.4M60000 




UAS UNIT NON-EXISTENT? 


249 


022542 


001019 

WXV AC 




BNE 


3) 


< 
* 


BR IF NO 


250 


022544 
022544 


010346 




PRINTS 
MOV 


•0EVNXR.R3 

R3,-(SP) 








022546 


012746 

VAC f 


0P3003' 

WCwWW*^ 


MOV 


«0EVNXR.-(SP) 








022552 


012746 


000002 

wwwwwc 


MOV 


♦2. -CSP) 








022556 


010600 




MOV 


SP.RO 








022560 


104416 




TRAP 


CtPNTS 








022562 


062706 

WC f w 


000006 

WWWWWW 


ADO 


«6.SP 






251 


022566 


000431 




BR 


41 






252 


022570 


020227 


160001 


3$: CMP 


R2.«160001 


i 


UAS UNIT NOT READY AT STARTUP? 


253 


022574 


001012 




BNE 


30) 


1 


BR IF NO. 


254 


022576 
022576 


010346 




PRINTS 
MOV 


«0EVNR0.R3 
R3.-(SP) 








022600 


012746 


023065' 


MOV 


OOEVNRO.-CSP) 








022604 


012746 


000002 


MOV 


»2.-(SP) 








022610 


010600 




MOV 


SP.RO 








022612 


104416 




TRAP 


C$PNTS 








022614 


062706 


000006 


ADD 


«6,SP 






255 


022620 


000414 




BR 


4$ 







256 


022622 


042702 


170000 




30( : 


BIC 


257 


022626 
022626 
022630 


010246 
010346 








PRINTS 

MOV 

MOV 




022632 


012746 


023146' 






MOV 




022636 


012746 


AA>^AA V 

000003 






MOV 




022642 


A • /V^ AA 

010600 








MOV 




022644 


104416 








TRAP 




022646 


062706 


000010 






ADO 


258 


022652 


062704 


000002 




4$ : 


ADO 


259 


022656 


005203 








INC 


260 


022660 


020427 


003374' 






CMP 


261 


022664 


103701 








BLO 


262 


022666 


012604 








MOV 


263 


022670 


A « ^£ A V 

012603 








MOV 


264 


022672 


012602 








MOV 


265 


022674 
022674 
022674 


4 Ail M 

104425 






L 10035: 


ENORPT 
TRAP 
















267 














266 


022676 


045 


116 


045 


OEVSUM: 


.ASCIZ 


269 


022733 


045 


101 


040 


OEVONL: 


.ASCIZ 


270 


023003 


045 


101 


040 


DEVNXR: 


•ASCIZ 


271 


023065 


045 


101 


040 


DEVNRO: 


.ASCIZ 


272 


023146 


045 


101 


040 


OEVORO: 


.ASCIZ 


273 












.EVEN 


274 














275 


023216 










ENOMOD 



276 
277 
278 



N7 

10:58 



♦tC7777.R2 

«DEVDR0.R3.R2 

R2.-CSP) 

R3.-CSP) 

*DEVDR0.-CSP) 

♦3.-CSP) 

SP.RO 

C»PNTS 

*10.SP 

#2.R4 

R3 

R4,«ERTABE 
1( 

CSP)».R4 
CSP)»,R3 
CSP)».R2 

: UNUSED. 

C»RPT 



/«MAOEVICE STATUS SUMMARY :«N/ 

/«A UNIT KD3KA ONLINE, ERRORS - KDKN/ 

/KA UNIT K03KA DROPPED. NON-EXISTENT REGISTER#N/ 

/«A UNIT K03KA DROPPED. NOT READY AT STARTUPKN/ 

/«A UNIT KD3KA DROPPED. ERRORS > «0«N/ 



B8 

rsvSA • HAROUARE TESTS MACRO MlllS 07-FEB-A4 10:58 SEQ 092 

CLEAN-UP AND REPORT COOING SECTIONS 

1 .TITLE TSVSA - HAROUARE TESTS 

2 

9 

10 025216 BGM100 TSVS 

025216 TSV5:: 

16 
24 

25 .SBTTL TEST 1: BUS RESET TEST 

26 

27 

28 THIS TEST VERIFIES THAT THE H74S5 HQOULE'S DEVICE REGISTERS ARE 

29 i ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE 

50 I BUILT-IN INITIALIZATION SELF -TEST HI CROO I AGNOSTIC 010 NOT FIND 

51 I ANY BASIC PROBLEHS IN THE HOOULE. AREAS OF LOGIC TESTED BY THE 

52 i SELF. TEST SEQUENCE ARE AS FXLOUSi RON AND PIPELINE REGISTER. 
55 I SEQUENCER. INTERNAL BUSES. 2901 HICftOPROCESSOR . AND. RAH. THIS 

54 I TEST INITIALIZES T« CONTROLLER BY ISSUING THE BUS INIT SIGNAL 

55 I VIA A RESET INSTRUCTION. OR BY URITING INTO THE TSSR REGISTER. 

56 I UAITS A PERIOD OF TINE (TO ALLOW THE CONTROLLER'S INITIALIZATION 

57 , niCWlOIAGNOSTIC SEQUENCE TO BE COMPLETED). AND THEN CHECKS T»C 

58 I CONTENTS OF THE TSSR REGISTER. SUCCESSFUL INITIALIZATION IS 

59 t INDICATED BY SUBSYSTEM READY (SSR) MO NEED BUFFER ADDRESS (NBA) 

40 I BITS BEING SET (1) AND ALL OTHER BITS (EXCEPT A17 AM) A16 AND 

41 i OFL. UHICH ARE IGNORED FOR THIS TEST) BEING aEAR (0). IF T^ 

42 I CONTENTS OF TSSR ARE NOT AS EXPECTED. AN ERROR REPORT IS ISSUED 
45 i LISTING THE EXPECTED DATA. ACTUAL DATA. AM) THE DISCREPANCIES. 

44 i THE ERROR REPORT ANALYZES THE TSSR CONTENTS AND DISCERNS AlO 

45 I REPORTS ONE OF TMIEE POSSIBILITIES: 

46 i 

47 , 

48 i 1. TSSR CONTENTS ARE AMBIGUOUS (ANY OF BITS 11-14 ARE SET. 

49 I OR STATES OF SSR AND SC BITS 00 NOT CORRESPOND TO T»C 

50 ( APPARENT ERROR CODE IN BITS 0-5): INDICATES THAT T»€ 

51 i TSSR CONTENT CANNOT BE TRUSTED. INDICATES A 

52 I CATASTROPHIC CONTROLLER MALFUNCTION. THIS IS A FATAL 
55 , ERROR (EXECUTION IS ABORTED). FIELD ACTION WOULD BE TO 

54 , REPLACE THE M7455. IF THE M7455 ITSELF IS BEING 

55 I DEBUGGED. THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON 
|6 , ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM. 

56 t 2. SSR * 0. SC - 0 AND THE ERROR CODE IN BITS 0-5 IS IN 

59 , THE RANGE 17-15: THIS IS A FATAL ERROR. THE ERROR 

60 , CODE IS DECODED AND THE APPROPRIATE DESCRIPTION GIVEN. 

61 , INDICATES THAT A SERIOUS PROBLEM EXISTS. 

62 i 
65 

64 025216 BGNTST 

025216 Tl:: 

69 025216 012700 025414' MOV •TSTIIO.RO lASCII MESSAGE TO IDENTIFY TEST 

70 025222 004757 016522' JSR PC.TSTSETUP lOO INITIAL TEST SETUP 
71025226 012757 000024 002214' MOV #20. .LOOPCNT {PERFORM 20 ITERATIONS 
72 025254 TILOOP: 

75 025254 005005 CLR R3 lUSE R5 AS FATAL ERROR fLAG 

74 

75 025256 BGNSUB i /////.////// BEGIN SUBTEST ' 

025256 Tl.l: 

025256 104402 TR^ CIBSUB 



C8 



MACRO Mills 07 -FEB 64 10:5S 



76 

77 023240 
023240 
76 023242 
79 02S246 

60 023252 

61 0232S4 

62 023260 

63 025264 

64 023266 
66 023270 

023270 
023272 
023274 
023276 
69 023300 

90 023302 

91 023302 
023302 
023302 

92 

93 023304 

94 023306 

95 023310 

96 023314 
97 

96 

99 023316 
023316 
023316 

100 

101 023320 

102 023324 

103 023330 

104 023334 

105 023336 

106 023342 

107 023346 
106 023350 
112 023552 

023552 
025554 
025556 
025560 
115 025562 

114 025564 

115 025564 
025564 
023564 

116 
117 

118 025566 

119 025570 

120 025572 

121 025576 

122 025402 
125 025404 



104455 

004757 016060' 
016501 000002 
010102 

042702 176277 
052702 002200 
020102 
001405 

104455 

000145 
005677' 
011712* 
00S203 



104405 

005705 
001402 

004757 017014' 
OOSOOS 



104402 

005065 000002 
004737 016060' 
016501 000002 
010103 

042702 176277 
052702 002200 
020102 
001405 

104455 
000146 
003644* 

011712* 
005205 



lot: 



20»i 



10*: 



104405 



005705 
001402 

004757 017014' 
004757 016270' 
105002 

000157 025254' 



BRESET 

JSR 
MOV 
MOV 
BXC 
BIS 
CMP 
BEQ 
ERROr 



INC 

ENDSUB 



TST 
BEQ 
JSR 
CLR 



BGNSUB 



CLR 
JSR 

nov 
nov 

BIC 
BIS 
CMP 
BEQ 
ERROF 



20(: 



TST 
BEQ 
JSR 
JSR 
BCC 
JMP 



PC.WAITF 

TSSR(R5),R1 

R1.R2 

•tC<HlA0DR!0FL>.R2 

•SSR!NBA.R2 

R1.R2 

101 

ERRNO , SFMERR , SFFMSG 



R3 



R5 
201 

PC.CKDROP 
R5 



TSSR(R5) 
PC.WAITF 
TSSR(RS).R1 
Rl R2 

•tC<HlA00R!0FL>.R2 

•S&^!NBA.R2 

R1.R2 

101 

ERRNO . SF lERR . SFFMSG 



INC R5 
ENOSUB 



R5 
201 

PC.CKDROP 

PC.TSTLOOP 

401 

TILOOP 



SEQ 093 



I ISSUE A BUS RESET 

„ TRAP CIRESET 

I WAIT FOR READY 
iGET THE CONTENTS OF TSSR 
{CONTENTS OF TSSR 
I THESE BITS MAY BE SET 
I READY AND NEW DATA SHOULD BE SET 
{COMPARE EXPECTED TO RECEIVED 
I BRANCH IF COMPARE 
•REPORT A FATAL ERROR 

TRAP CtERDF 
.WORD 101 
.WORD SFHERR 
.UORO SFFMSG 
tSET THE FATAL ERROR FLAG 

END SUBTEST \\\\\\\\\\\\\ 
L 10057: 

TRAP CtESUB 

I DID WE HAVE FATAL ERROR ? 
I BRANCH IF NOT 

iGO DROP THIS UNIT. IF ALLOWED 
I RESET FATAL ERROR FLAG 



t //////////// BEGIN SUBTEST //////////// 
T1.2: 

TRAP CIBSU6 

iWRITE TO ISSUE A SOFT RESET 

iWAIT FOR READY TO SET 

iGET REGISTER TSSR DATA 

{CONTENTS OF TSSR 

I THESE BITS MAY BE SET 

{READY AND NEW DATA SHOULD BE SET 

{COMPARE EXPECTED TO RECEIVED 

•BRANCH IF COMPARE 

•REPORT A FATAL ERROR 

TRAP CIERDF 
.WORD 102 
.WORD SFIERR 
.WORD SFFMSG 

•SET THE ERROR FLAG 

|\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 
L 10040: 

TRAP CIESUB 



(FATAL ERROR DETECTED ? 

•BRANCH IF NOT 

I SEE IF TIME TO DROP UNIT 

iSHOmO WE 00 ITERATIONS ? 

(BRANCH IF NOT 

(LOOP UNTIL COUNT EXPIRED 



D8 



SEQ 094 



124 025410 
025410 
025412 

125 
126 
127 
12S 
129 

150 025414 
151 

152 C25454 
025454 
025454 

155 
154 
155 
136 
157 
158 
159 
140 
141 
142 
145 
144 
145 
146 
147 
148 
149 
ISO 
151 
152 
155 
154 
155 
156 
157 
158 
159 
160 
161 
162 
165 
164 
165 
166 
167 
168 



104452 

000022 



111 



104401 



40»: EXIT TST 



I ♦ 



I ALL DONE THIS TEST 



TRAP CtEXIT 
.WORD L 10056 



iLOCAL TEXT MESSAGES FOR TEST 



I - 



156 



151 TSTIID: .ASCIZ 'Initialization' 
.EVEN 
ENOTST 



L 10056: 



TRAP CIETST 



.SBTTL TEST 2: URAP DATA - HIGH BYTE 



THIS TEST VERIFIES OPERATION OF: 



1. PART OF THE POP- 11 BUS INTERFACE SECTION OF THE M7455 
HOOULEi PART OF THE INPUT FILE (TSOB HIGH BYTE). PART 
OF THE OUTPUT FILE (TSSR HIGH BYTE AND TS8A. BOTH 
BYTES). PART OF THE DC005 TRANSCEIVER CIRCUITS (ADDRESS 
DECODER. BOAL DRIVERS. HIGH BYTE OF INTERNAL DAL BUS 
DRIVERS). AND BASIC PROGRATtCO I/O CONTROL SEQUENCES 
AND LOGIC I 

2. PART OF 2901 niCROPROCESSOR ELEMENTS (Q-REGISTER. 
REGISTER 0, ROTATE AND NEGATE FUNCTIONS t 



169 


025456 






BGNTST 






025456 








174 


025456 


012700 


024104' 


MOV 


♦TST2ID.R0 


175 


025442 


004757 


016522' 


JSR 


PC.TSTSETUP 


176 


025446 


012757 


000024 002214' 


MOV 


•20..L00PCNT 


177 


025454 


005004 




T2L00P: CLR 


R4 


178 


025456 


012705 


17777/ 


MOV 


♦-1.R5 


179 


025462 


005705 




5«: TST 


R5 



5. Y AND SOURCE BUSESi 

4. BASIC MICROPROGRAM SEQUENCES. 



THE PROGRAM URITES A TEST DATA BYTE INTO THE HIGH BYTE OF TSOB. 
WAITS FOR THE SSR BIT IN TSSR TO SET. THEN CHECKS THE CONTENTS 
OF BOTH TS8A AND TSSR. THE MODULE IS Fur^CTIONING CORRECTLY IF 
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT 
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS 
8 AND 9. WHICH SHOULD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN 
WRITTEN. AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN 
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED. THE ANALYSIS 
LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED 
ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA 
BYTES (0-577 OCTAL). 



T2' • 

i ASCII MESSAGE TO IDENTIFY TEST 

tOO INITIAL TEST SETUP 

i PERFORM 20 ITERATIONS 

i STARTING DATA PATTERN 

iDO INIT ON FIRST TIME TMROLCM 

iDO WE NEED SOFT INIT 



TSV5A - NAROWARE TESTS MACRO nill5 
TEST 2: URAP DATA - HIGH BYTE 



160 


023464 


001412 




181 


023466 


005003 




102 


023470 


004737 


015604' 


183 


023474 


103406 




187 


023476 


010001 




188 


023500 








023500 


104455 






023502 


000311 






023504 


003644' 






023506 


011644' 




189 


023510 


♦^05203 




190 


02SS12 


005037 


002220' 


191 








192 


023516 








023516 


104404 




193 








194 


023520 


110465 


000001 


195 


023524 


004737 


016060' 


196 


023530 


103411 




197 


023532 


010001 




196 


023534 


010402 




202 


023536 








023536 


104455 






023540 


000312 






023542 


024032' 






023544 


015304' 




203 


023546 


005203 




204 


023550 


005237 


002220' 


205 


023554 








023554 


104406 




206 


023556 


005737 


002220' 


207 


023562 


001402 




206 


023564 


004737 


017014' 


209 


023570 


010402 




210 


023572 


042702 


177774 


211 


023576 


000302 




212 


023600 


052702 


002200 


213 


023604 


016501 


000002 


214 


023610 


032701 


000100 


215 


023614 


001402 




216 


023616 


052702 


000100 


217 


023622 


020201 




218 


023624 


001405 




222 


023626 








023626 


104456 






023630 


000313 






02S632 


023765' 






Wcoo54 


015504' 




223 


023636 


005203 




224 


023640 








023640 


104406 




225 


023642 


016501 


000000 


226 


023646 


005002 




227 


023650 


150402 




226 


023652 


000302 




229 


023654 


150402 




230 


023656 


020102 
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E8 



SEQ 095 



BEQ 101 

CLR R3 

JSR PC.SOFINIT 

BCS lot 

MOV RO.Rl 

ERROF ERRNO.SFIERR.SFZMSG 



INC R3 
CLR FATFLG 

BGNSEG 



NOVB R4.TS06H(R5) 

JSR PC.HAITF 

BCS 15t 

MOV RO.Rl 

MOV R4.R2 

ERROF ERRNO . T2SSR , EXPREC 



I BRANCH IF NOT 

lOONT NEED INIT NEXT TIME THRU 

I DO SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT - OK 

I SAVE CONTENTS OF TSSR 

I DEVICE FATAL ERROR DURING INIT 

TRAP CIEROF 
.UORO 201 
.WORD SFIERR 
.WORD SFIMSG 

(FORCE SOFT INIT ON NEXT PASS 

I CLEAR FATAL ERROR FLAG 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C*BSEG 

iSET MAINT MODE * WRITE DATA 

I WAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

I SAVE CONTENTS OF TSSR 

I DATA THAT UAS •«ITTEN 

I DEVICE FATAL SSR FAILED TO SET 

TRAP C9ER0F 
.yORD 202 
.UORO T2SSR 
.WORD EXPREC 



CICLPl 



INC 


R3 


1 FORCE SOFT INIT ON NEXT PASS 


INC 


FATFLG 


iSET FATAL ERROR FLAG 


CKLOOP 




iLOOP ON ERROR. IF FLAG SET 






TRAP 1 


TST 


FATFLG 


lUAS FATAL ERROR RECEIVED ? 


BEQ 


20 » 


1 BRANCH IF NOT 


JSR 


PC.CKOROP 


tSEE IF TIME TO DROP UNIT 


MOV 


R4 R2 


iDATA PATTERN WRITTEN 


BIC 


♦tC<BIT0!BITl>,R2 


1 CLEAR ALL BUT LOU 2 BITS 


SWAB 


R2 


iBITS 8 AND 9 HAVE LOU DATA BITS 


BIS 


♦SSR! NBA. R2 


{THESE BITS MUST BE SET ALSO 


MOV 


TSSR(R5).Rl 


iGET THE CONTENTS OF TSSR 


BIT 


•OFL.Rl 


lis OFF-LINE BIT SET ? 


BEQ 


25 1 


{BRANCH IF NOT OFF-LINE 


BIS 


♦0FL.R2 


{SET OFF-LINE IN EXPECTED DATA 


CMP 


R2.R1 


{DCcS EXPECTED MATCH RECEIVED ? 


BEQ 


301 


{OKAY IF MATCH 


ERRHRD 


ERRNO. T2TSSR. EXPREC 


{TSSR UASN'T CORRECT 



INC 

CKLOOP 

MOV 

CLR 

BISB 

SWAB 

BISB 

CMP 



R3 



TSBA(R5).R1 
R2 

R4.R2 

R2 

R4.R2 
R1.R2 



TRAP 
.WORD 
.UORO 
.UORO 

{FORCE SOFT INIT ON NEXT PASS 
{LOOP ON ERROR ? 

TRAP 

(GET TSBA REGISTER CONTENTS 

I DATA PATTERN WRITTEN 
(MOVE INTO TOP BYTE 
(BOTH HALVES SHOULD BE SAME 
(COMPARE EXPECTED TO RECEIVED 



C9ERHR0 
203 
T2TSSR 
EXPREC 



CICLPl 



TSV5A - HARDWARE TESTS 
TEST 2: URAP DATA - HIGH gY 



MACR^^HlllS 



07-rEB-64 10:56 



F8 



SEO 096 



231 


023660 


001405 




BEQ 


55 » 




02366^ 






EHRHRD 


ERRNO, T2TSBA,EXPREC 
















000314 












OcO f cO 












Al C VA^ < 












OOXv3 




















236 


023674 
023674 


1 AAA AS 


35»: 


ENDSEG 




239 












240 


023676 


105204 




INCB 


R4 


241 


023700 


001270 




BNE 


5» 


242 


023702 


004737 


016270' 


JSR 


PC.TSTLOOP 


243 


023706 


103002 




BCC 


40* 


244 


023710 


000137 


023454' 


JMP 


T2L00P 


245 


023714 
023714 
023716 


104432 
000214 


40$: 


EXIT 


TST 



» ERROR IF NOT EQUAL 

I PRINT THE ERROR £ EXPO/RECV 

TRAP CIERHRO 
.UORD 204 
.WORD T2TSbA 
.UORO EXPREC 

iFORCE SOFT INIT ON NEXT PASS 

!<<<<<<<<<<<<< END SEGMENT <«<<<<<<<<<<< 
lOOOOt: 

TRAP 



CtESEG 



246 
247 
248 
249 

250 



(NEXT DATA PATTERN TO TEST 
I BRANCH TILL BACK TO ZERO 
t SHOULD UE 00 ITERATIONS ? 
(BRANCH IF NOT 
I LOOP UNTIL COUNT EXPIRED 
I ALL DONE THIS TEST 

TRAP 
.UORO 



C«EXIT 
L10041-. 



IlXAL text messages for TEST 



251 


023720 


124 


123 


102 


T2TS8A: 


.ASCIZ 


252 


023765 


124 


123 


123 


T2TSSR: 


.ASCIZ 


253 


024032 


116 


157 


040 


T2SSR: 


.ASCIZ 


254 


024104 


127 


162 


141 


TST2ID; 


.ASCIZ 


255 












.EVEN 


256 


024132 
024132 
024132 


104401 








endtst 



'TS8A Incorrect After TSOB High Writ*' 
TSSR Incorrect After TSOB High Writ*' 

TSOB 



257 
258 
259 
?60 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 



'No Sub-Sy«t«« Ready After 
'Wrap Date - High Byte' 



.SBTTL TEST 3: URAP DATA - LOU BYTE 



High Urite' 



L10041: 



TRAP 



CIETST 



THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME 
ELEMENTS TESTED IN TEST 2. AND ADDITIONALLY VERIFIES: 



1. LOU BYTE OF THE TSOB INPUT FILE REGISTER. 

2. LOU BYTE OF INTERNAL DAL BUS DRIVERS ON THE 0C005 
TRANSCEIVER CIRCUITS. 

3. BASIC FUNCTIONING OF PARTS OF THE RAM. 



THE PROGRAM URITES A TEST DATA BYTE INTO THE LOU BYTE OF TSOB. 
UAITS FOR THE SSR BIT IN TSSR TO SET. THEN CHECKS THE CONTENTS 
OF BOTH TSBA AND TSSR. THE MODULE IS FUNCTIONING CORRECTLY IF 
DATA URITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT 
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS 
6 AND 9. UHICH SHOULD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN 
URITTEN. AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN 
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED. Tl^C ANALYSIS 



G8 



TSVbA 
TEST 



HARDWARE TESTS 
3: URAP DATA 



_ MACRO Ml 115 
LOU BYTE 



07-rEB-84 10:58 



SEO 097 



281 
282 
283 
284 



7AS 




















019700 
vXc r ^A/ 


094«>77« 




094 1 40 




016X99' 
VXw 






0197X7 
WXC r ^ f 


0d0094 


P9% 












01970X 
VXC r 


nooool 

wvwx 














001419 

wx~ xc 




c~ ■ 


094 164 








VC^ XwO 


0047S7 


Ol Vi04' 




094172 


10S406 




SOS 


024174 


OlOOOl 

VX WVA 




SOA 




















0004SS 
















011644' 




SOS 








S06 


Od49lh 




009990' 


S07 








SOA 
















S09 








310 






oooooo 

www 


511 




nA47X7 


A16A6A> 


S13 








SIS 




AtOOOl 




514 




ni04no 




518 












1 A44^S 








AAA4V« 






0P4P4A 


OP4^dA* 








01Sj(A4' 




519 

V A 7 


024244 






320 


024246 


0MP37 

W^S^ r 


009990' 


521 


0242S2 






322 


024252 


1 A44M 




024254 




009990' 


525 


024260 


001402 




324 


024262 


004757 


017014* 


525 


024266 


010402 




326 


024270 


042702 


177774 


527 


024274 


000502 




328 


024276 


052702 


002200 


529 


024502 


016501 


000002 


530 


024506 


052701 


000100 


351 


024512 


001402 




552 


024514 


052702 


000100 


335 


024520 


020201 




534 


024522 


001405 




558 


024524 








024524 


104456 





T3L00P: 



LISTS LIKELTf FAULT> CANDIDATES FROM THE LOGIC ELEMENTS LISTED 
ABOVE. TIC TEST IS REPEATED FOR ALL COMBINATIONS DT TEST DATA 
BYTES (0-577 OCTAL). 



51: 



10(i 



151: 



20(: 



25*: 



BGNTST 




T5:: 


MOV 


•TST5ID.ro 


lASCII MESSAGE TO IDENTIFY TEST 


JSR 


PC.TSTSETUP 


iDO INITIAL TEST SETUP 


MOV 


*20. .LOOPCNT 


•PERFORM 20 ITERATIONS 


CLR 


R4 


(STARTING DATA PATTERN 


MOV 


•1.R5 


iFORCE SOFT INIT ON FIRST PASS 


TST 


R5 


iSET IF INIT IS REQUIRED 


BEQ 


10 1 


iBRANCM IF NO INIT NEEDED 


CLR 


R5 


(ASSUME NO INIT NEEDED ON NEXT LOOP 


JSR 


PC.SOFINIT 


(DO SOFT INIT OF CONTROLLER 


BCS 


101 


(BR IF SOFT INIT - OK 


MOV 


RO.Rl 


(SAVE CONTENTS OF TSSR 


ERROF 


ERRNO . SFIERR . SFIMSG 


(DEVICE FATAL ERROR DURING INIT 



INC R3 
CLR FATFL6 

BGNSEG 



MOVB R4.TS0BCR5} 

JSR PC.UAITF 

BCS 151 

NOV RO.Rl 

MOV R4.R2 

ERROF ERRNO. T5SSR.EXPREC 



(^ORCE INIT ON NEXT PASS 
(CLEAR FATAL ERROR FLAG 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
501 

SFIERR 
SFIMSG 



!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CIBSEG 

(SET MAINT MODE * URITE DATA 
(UAIT FOR SSR TO SET 
(BR IF CARRY SET CGOOO RETURN) 
(SAVE CONTENTS OF TSSR 
(DATA THAT MAS WRITTEN 
(DEVICE FATAL SSR FAILED TO SET 



TRAP 
.UORD 
.UORO 
.WORD 



INC 


R3 


(FORCE INIT ON NEXT PASS 


INC 


FATFLG 


(SET THE FATAL ERROR FLAG 


CKLOOP 




(LOOP ON ERROR. IF FLAG SET 






TRAP 1 


TST 


FATFLG 


(DID UE GET FATAL ERROR ? 


BEQ 


20< 


(BRANCH IF NOT 


JSR 


PC.CKDROP 


(DROP UNIT. IF DROP ALLOWED 


MOV 


R4 R2 


(DATA PATTERN WRITTEN 


BIC 


«tC<BIT0!BITl>.R2 


(CLEAR ALL BUT LOW 2 BITS 


SWAB 


R2 


(BITS 8 AND 9 HAVE LOW DATA BITS 


BIS 


»SSR!NBA,R2 


(THESE BITS MUST BE SET ALSO 


MOV 


TSSR(R5).Rl 


(GET THE CONTENTS OF TSSR 


BIT 


♦OFL.Rl 


(IS DRIVE OFF-LINE 


BEQ 


25 < 


(BRANCH IF NOT OFFLINE 


BIS 


♦0FL.R2 


(SET OFF-LINE IN EXPECTED 


CMP 


R2.R1 


(DOES EXPECTED MATCH RECEIVED ? 


BEQ 


501 


(OKAY IF MATCH 


ERRHRD 


ERRNO. T5TSSR.EXPREC 


(TSSR WASN'T CORRECT 



CtERDF 
502 
T5SSR 
EXPREC 



C«CLP1 



TRAP 



CtERHRO 



H8 



TSV5A 
TEST 



- HAROUARC TESTS 
3: URAP DATA 



_ MACRO Ml I 13 
LOU BYTE 



07 -FEB -84 10:58 



024326 
024330 
024332 

339 024334 

340 024336 
024336 

341 024340 

342 024344 

343 024346 

344 024350 

345 024352 

346 024354 

347 024356 

351 024360 
024360 
024362 
024364 
024366 

352 024370 
353 

354 024372 
024372 
024372 

355 

356 024374 
S57 024376 

358 024400 

359 024404 

360 024406 

361 024412 
024412 
024414 

362 
363 
364 
365 
366 

367 024416 

368 024462 

369 024526 

370 024577 
371 

372 024624 
024624 
024624 

373 
374 
375 
376 
377 
376 
379 
380 
361 
382 
363 
384 



000457 
024462' 
015304' 
005203 

104406 

016501 000000 

005002 

150402 

000302 

150402 

020102 

001405 

104456 

000460 

024416' 

015304' 

005203 



104405 

105204 
001270 

004737 016270' 
103002 

000137 024152' 

104432 

000210 



30); 



INC R3 
CKLOOP 

MOV TSBA(R5).Rl 

CLR R2 

BISB R4.R2 

SUAB R2 

BISB R4.R2 

CMP R1.R2 

BEQ 35 » 

ERRHRO ERRN0.T3TSBA.EXPREC 



35$: 



401; 



INC 


R3 


ENOSEG 




INCB 


R4 


BNE 


5» 


JSR 


PC.TSTLOOP 


BCC 


40$ 


JMP 


T3L00P 


EXIT 


TST 



.WORD 
.WORD 
.WORD 

I FORCE INIT ON NEXT PASS 
{LOOP ON ERROR 7 

TRAP 

tGEr TSBA REGISTER CONTENTS 

loATA PATTcRN WRITTEN 
I HOVE INTO TOP BYTE 
I BOTH HALVES SHOULD BE SAME 
(COMPARE EXPECTED TO RECEIVED 
iBR IF ERROR NOT EQUAL 
I PRINT THE ERROR 6 EXPD/RECV 

TRAP 
.MORO 
.UORD 
.UORD 

I FORCE INIT ON NEXT PASS 



SEQ 096 



505 

T3TS5R 
EXPREC 



CICLPl 



C$ER»«0 
304 

T3TS6A 
EXPREC 



!<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 
100009 : 

TRAP 



CtESEG 



iNEXT DATA PATTERN TO TEST 
(ALL DONE WHEN BACK TO ZERO 
{SHOULD WE DO ITERATIONS ? 
(BRANCH IF NOT 
(LOOP UNTIL COUNT EXPIRED 
I ALL DONE THIS TEST 

TRAP 
.UORD 



CIEXIT 
L10042- 



124 
124 

116 
127 



104401 



123 
123 
157 
162 



(LOCAL TEXT MESSAGES FOR TEST 
»- 

102 T3TS8A: .ASCIZ ' TS8A Incorr«et Aft*r TSOB Lom Urlf 



123 T3TSSR: 
040 T3SSR: 
141 TST3ID: 



.ASCIZ 
•ASCIZ 
.ASCIZ 
.EVEN 
ENDTST 



TSSR Incorrect After TSOB Lom Writ*' 
No Sub-Sy«t«m R«ady After TSDB Low UrSto' 
Wrap Data - Low Byta' 



L 10042: 



TRAP 



CIETST 



.S8TTL TEST 4: RAM TEST 



THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE M7455 
CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS. AND THAT 
EACH RAM LOCATION IS UNIQUELY ADDRESSED (I.E.. THAT ONE AND ONLY 
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). THESE 
TESTS ARE PERFORMED BY THREE SUBTESTS. DESCRIBED BELOU. A 
BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN 
THE 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN 
ADD. 



18 



TSV5A - HAROU/WE TESTS 
TEST «: RAM TEST 



585 
306 
5»7 
3M 
389 
390 
391 
392 
393 
394 
395 
396 
597 
398 
599 
400 
401 
402 
405 
404 
405 
406 
407 
408 
409 
410 
411 
412 
415 
414 
415 
416 
417 
418 
419 
420 
421 

422 
425 



MACRO nill5 07-FEB-84 10:56 



SEQ 099 



TEST 4 . SUBTEST 1: - 

THIS SUBTEST VERIPIES EACH RAM LOCATION BY PIRST PLACING THE 
M7455 INTO MAINTENANCE MODE BY WRITING INTO THE LOW BYTE V TSOB 
AND THEN PERFORMING THE FOLLOWING SEQUENCE FOR EACH AOORESS 
0-7777 (OCTAL): 

1. THE AOORESS TO BE TESTED IS LOAOEO INTO THE TSOB (VIA A 
UORO WRITE). 

2. THE AOORESSEO RAM LOCATION IS WRITTEN. THEN READ INTO 
THE LOW BYTE OF TS8A. BY WRITING A DATA BYTE INTO THE 
LOW BYTE OF TSOB. 

5. THE LOW BYTE OF TSBA IS CHECKED TO SEE IF IT CONTAINS 
THE DATA PATTERN ORIGINALLY WRITTENi A DISCREPANCY IS 
REPORTED AS AN ERROR. 

4. THE AOORESS OF THE LOCATION BEING TESTED IS AGAIN 
WRITTEN INTO TSOB (WORD WRITE). TO CAUSE THE LOCATION 
UNDER TEST TO AGAIN BE READ INTO THE LOW BYTE OF TSBA. 
THE LOW BYTE OF TSBA IS AGAIN CHECKED AND DISCREPANCIES 
REPORTED. 

5. THE HIGH BYTE OF TSBA IS CHECKEDi IT SHOULD CONTAIN 
THE sun OF THE HIGH AND LOW BYTES LAST WRITTEN INTO 
TSOB AS A WORD. A DISCREPANCY IS REPORTED AS A 2901 
PROBLEM. 

6. THE CONTENT OF TSSR IS CHECKED: SETTING OF THE SC BIT 
IS IGNORED. OTHER DISCREPANCIES IN TSSR ARE REPORTED. 



424 

429 
450 
431 
452 
453 
434 
436 
439 



440 

441 



024626 
024626 

024626 
024626 

024626 104402 

024630 012700 026156' 

024634 004737 016322' 

024640 012737 000005 002214' 

024646 T4L00P: 

024646 004757 015604' 

024652 103405 

024654 010001 

024656 

024656 104455 

024660 000621 

024662 005644 ' 

024664 011644' 

024666 005004 20« : 

024670 004737 016146' 



BGNTST 
BGNSUB 



MOV 
JSR 
MOV 

JSR 
BCS 
MOV 
ERROF 



CLR 
JSR 



•TST4I0.R0 

PC.TSTSETUP 
•5.L00PCNT 

PC.SOFINI' 

201 

RO.Rl 

ERRNO . SF lERR . SF IMSG 



R4 

PC.CHKTSSR 



T4:: 

;//////////// BEGIN SUBTEST //////////// 
T4.1: 

TRAP C(BSUB 

lASCII MESSAGE TO IDENTIFY TEST 
lOO INITIAL TEST SETUP 
(PERFORM 5 ITERATIONS 

I 00 INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

■CONTENTS OF TSSR REGISTER 

iFATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
.WORD 401 
.WORD SFIERR 
.WORD SFIMSG 

I SET RAM AOORESS AT ZERO 

I WAIT FOR READY. NON- AMBIGUOUS 



J8 

TSV5A - HARDWARE TESTS HACRO nill3 07 FEB 84 10:58 
TEST 4: RAH TEST 



442 024674 


105065 


000000 


CLRB 


TSDBCRS) 


443 024700 




25»: 






444 024700 






BGNSEG 




024700 


104404 








44S 










446 024702 


110402 




novB 


R4.R2 


447 024704 


004737 


016146' 


JSR 


PC.CHKTSSR 


448 024710 


010465 


000000 


MOV 


R4.TS0B(R5) 


449 024714 


004737 


016146' 


JSR 


PC.CHKTSSR 


450 024720 


110265 


000000 


novB 


R2.TS0B(R5) 


451 024724 


004737 


016146' 


JSR 


PC.CHKTSSR 


452 024730 


016501 


000000 


nov 


TSBA(R5).R1 


453 024734 


120102 




CMPB 


R1.R2 


454 024736 


001404 




BEQ 


301 


458 024740 






ERRHRO 


ERRNO. TSBAM2.EXPREC 


024740 


104456 








024742 


000622 








024744 


025774- 








024746 


015304' 








459 024750 




30t: 






460 024750 






ENOSEG 




024750 










024750 


104405 








461 










462 024752 


005204 




INC 


R4 


463 024754 


020427 


010000 


CMP 


R4. #10000 


464 024760 


001347 




BNE 


25« 


465 024762 






ESCAPE 


SUB 


024762 


104410 








024764 


000102 








466 










467 024766 


005002 




CLR 


R2 


468 024770 


005304 




DEC 


R4 


469 024772 


110402 


^— • ~*40»! 


HOVB 


R4.R2 


470 024774 


004737 


016146' 


JSR 


PC.CHKTSSR 


471 025000 


010465 


000000 


nov 


R4.TS0B(R5) 


472 025004 


004737 


016146' 


JSR 


PC.CHKTSSR 


473 025010 


016501 


000000 


nov 


TSBA(R5).R1 


474 025014 


120102 




CMPB 


R1.R2 


475 025016 


001404 




BEQ 


45t 


479 025020 






ERRHRO 


ERRNO . TS6AH2 . EXPREC 


025020 


104456 








025022 


000623 








025024 


025774- 








025026 


015304' 








480 025030 




45*: 


CKLOOP 




025030 


104406 








481 02S0S2 


116501 


000001 


MOVB 


TSBAH(R5).R1 


482 025036 


010402 




nov 


R4.R2 


483 02S040 


000302 




SUAB 


R2 


484 025042 


060402 




ADD 


R4.R2 


485 025044 


120102 




CMPB 


R1.R2 


486 025046 


001404 




BEQ 


50t 


490 025050 






ERRHRO 


ERRNO, M2901. EXPREC 


025050 


104456 








025052 


000624 








025054 


025704- 









SCO 100 



tSET INTO HAINTErtANCE MODE 

)>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CtBSEG 

(EXPECTED DATA FROM URA»'- AROUND 

lUAIT FOR READY. NON-AMBIGUOUS 

I LOAD ADDRESS INTO TSD6 

lUAIT FOR READY. NON-AMBIGUOUS 

I LOADS DATA INTO RAH LOCATION 

I WAIT FOR READY. NON- AMBIGUOUS 

I READS URAP DATA 

(DOES URITTENCURAP) - READ 

>BR IF OK. THEY ARE EQUAL 

I DATA NOT WRAPPED CORRECTLY 

TRAP CtERHRD 
.WORD 402 
.WORD TSBAM2 
.WORD EXPREC 

{<«<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 
lOOOOt: 

TRAP CtESEG 

I NEXT ADDRESS 

(END OF RAM MEMORY CHECK 

(LOOP TILL ALL RAM WRITTEN 

lOON' T CONTINUE IF ERROR ON WRITE 

TRAP CtESCAPE 
.WORD L10044-. 

t CLEAR OUT R2 HIGH BITS 

I SET BACK TO 7777 

(GET DATA PATTERN BACK IN SHAPE 

(WAIT FOR READY. NON-AMBIGUOUS 

I LOAD UP RAM ADDRESS POINTER 

I WAIT FOR READY. NON-AMBIGUOUS 

(READ RAM CONTENTS BACK 

(CHECK WITH DATA WRITTEN 

(BR IF OK. DATA IN - DATA OUT 

(WRITTEN DATA NOT - TO READ 

TRAP CtERMD 
.WORD 403 
.WORD TSBAM2 
.WORD EXPREC 

(SCOPE LOOP 

TRAP CICLPI 

(HIGH BYTE READ OF TSBA 
(DATA PATTERN WRITTEN 
(HIGH TO LOW 

(TOTAL OF BYTES IN LOW BYTE 

(SUM OF BYTES WRITTEN TO TSOB • TSBAH 

(BR IF OK. THEY SHOULD BE 

(2901 PROBLFM ADDER 

TRAP CtERHRD 
.WORD 404 
.WORD M2901 



I<8 



TSV5A 
TEST 



HARDWARE TESTS 
4: RAn TEST 



MACRO M11I3 07 FEB 84 10:56 



025056 

491 025060 
02S060 

492 025062 

493 025064 
494 

495 025066 
025066 
025066 

496 
497 

496 025070 
025070 
025070 

499 

500 
501 
502 
503 
504 

505 025072 

506 025076 

510 025100 

511 025102 
025102 
025104 
025106 
025110 

512 025112 

513 025114 

514 025116 

515 025122 

516 025126 

517 025126 
025126 

516 

519 025130 

520 025134 

521 025140 

522 025144 

523 025150 

524 025154 

525 025160 

526 025162 

530 025164 
025164 
025166 
025170 
025172 

531 025174 

532 025174 
025174 
025174 

533 

534 025176 

535 025200 

536 025204 



015304' 

104406 
005304 
002342 



104403 



104402 



501 i 



004737 015604' 

103405 

010001 

104455 

000625 

003644' 

011644' 

005002 

005004 

004737 016146' 
105065 000000 



104404 

004737 016146' 

010465 000000 

004737 016146' 

110265 000000 

004737 016146' 

016501 000000 
120102 
001404 

104456 

000626 

025774' 

015304' 



104405 

005204 

020427 010000 
001350 



20»: 



25t: 



SOI: 



CKLOOP 

DEC 
BGE 

ENDSUB 



BGNSUB 



R4 
40$ 



.WORD 

I SCOPE LOOP 

TRAP 

I DROP DATA COUNTER (PATTERN) 
iNOT AT LOC. ZERO YET 



SEQ 101 

EXPREC 
C*CLP1 



TEST 4. SUBTEST 2 



END SUBTEST wwwwwvw 
L 10044: 

TRAP CtESUB 



I //////////// BEGIN SUBTEST //////////// 
T4.2: 

TRAP C*BSUB 



THIS SUBTEST WRITES RAH WITH ALL ZEROS 

THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY 



JSR 
BCS 
MOV 
ERROF 



CLR 
CLR 
JSR 
CLRB 

BGNSEG 



JSR 

MOV 

JSR 

HOVB 

JSR 

MOV 

CMPB 

BEQ 

ERRHRD 



ENDSEG 



INC 
CMP 
BNE 



PC.SOFINIT 

20» 

RO.Rl 

ERRNO.STIERR.SFIMSG 



R2 
R4 

PC.CHKTSSR 
TS06(R5) 



PC.CHKTSSR 

R4.TSDB(R5) 

PC.CHKTSSR 

R2.TSDB(R5) 

PC.CHKTSSR 

TSBA(R5).R1 

R1.R2 

301 

ERRNO . TSBAM2 . EXPREC 



CIEROF 
405 

SFIERR 
SFIMSG 



iDO INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

{CONTENTS OF TSSR REGISTER 

(FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

I TEST DATA • 0 
{STARTING RAM ADDRESS - 0 
:WAIT FOR READY. NON-AMBIGUOUS 
I SET INTO MAINTENANCE MODE 



:>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C»BSEG 



(WAIT FOR READY. NON-AMBIGUOUS 
I LOAD ADDRESS INTO TSDB 
I WAIT FOR READY. NON-AMBIGUOUS 
I LOADS DATA INTO RAM LOCATION 
sWAIT FOR READY. NQN- AMBIGUOUS 
(READS WRAP DATA 
(DOES WRITTEN(WRAP) - READ ? 
(BR IF OK, THEY ARE EQUAL 
tOATA NOT WRAPPED CORRECTLY 

TRAP 
.WORD 
.WORD 
.WORD 



C*ERHRO 
406 
TSBAM2 
EXPREC 



R4 

R4.«10000 
25$ 



]<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 
100001: 

TRAP CSESEG 

(NEXT ADDRESS 

(END OF RAM MEMORY CHECK 

(BR. MORE RAM TO GO 



L8 





HARDUARE TESTS 




lu : Do 




r 4 


: RAM TEST 






















025206 


005304 






R4 




025210 


005002 






R2 


SAO 


025212 


004737 






pr CHKTSSR 




025216 


010465 


www 


nnu 






025222 


004737 






PC CHKTSSR 




025226 


016501 


WWW 


liov 


TSBA(R5) Rl 




025232 


005002 




CLR 


R2 




025234 


120102 




CliPB 


Rl R2 




025236 


001404 






431 




025240 






ERRHRD 


ERRN0.TSBAM3 EXPREC 




025240 


104456 










025242 


000627 










025244 


026056' 










025246 


015304' 








551 


025250 


012702 


000377 43t> 


MOV 


4000377 R2 

WWW** ' ' • 


552 


025254 


010465 


oooooo 

www 


MOV 


R4 TSDBCR5) 


553 


025260 


004737 


016146' 


JSR 


PC CHKTSSR 


554 


025264 


110265 


OOOOOO 

WWW 


MOVB 


R2. TSDBCRS) 


555 


025270 


004737 


016146' 


JSR 


PC. CHKTSSR 


556 


025274 


016501 


oooooo 


MOV 


TSBACR5).R1 


557 


025300 


120102 






Rl R2 


55a 


025302 


001404 






45$ 


562 


025304 






ERRHRD 


ERRNO T SB AM2. EXPREC 




025304 


104456 










025306 


000630 










025310 


025774- 










025312 


015304' 








563 


025314 




45t • 


CKl OOP 






025314 


104406 








564 


025316 


004737 




JSR 




565 


025322 


010465 




NOV 


R4 TSDBfR5) 


566 


025326 


004737 




JM 


PC CHCTSSR 


567 


025332 


116501 


wvwx 


HQVB 
■ iwva 


T^AHfR5) Ri 


568 


025336 


010403 




HOW 


R4,R3 


569 


025340 


000303 






R3* 


570 


025342 


060403 




ADD 


R4,R3 


5/1 


025344 


120103 






Rl R3 


572 


025346 


001404 






50( 


576 


025350 






cpbupn 

mi/ 


ERRNO M9901 EXPREC 




025350 


104456 










025352 


000631 










025354 


025704' 










025356 


015304' 








577 


025360 






CKL OOP 






025360 


104406 








578 


025362 


005304 






R4 


579 


025364 


002312 






40t 


580 












581 


025366 












025366 












025366 


104403 








582 












583 












584 


025370 






BGNSUB 






025370 












025370 


104402 









SEQ 102 



I SET BACK TO 7777 

,SET TO ALL ZEROS 

lUAIT FOR READY (SSR) TO SET 

I LOAD UP THE ADDRESS FOR RAM 

lUAIT FOR READY (SSR) TO SET 

(READ THE RAM CONTENTS BACK 

iLOOKING FOR OOOOOO (EXPECTED) 

(BOTH SHOULD BE 00000000 BINARY 

I BR. IF uATA IS GOOD 

i CHARACTERISTICS DATA NOT CORRECT 

TRAP C$ERHRD 
.WORD 407 
.WORD TS8AM3 
.WORD EXPREC 

iSET ALL ONES WORD 

iLOAO UP RAM ADDRESS POINTER 

iUAIT FOR READY. NON-AMBIGUOUS 

(WRITE DATA INTO RAM 

tWAIT FOR READY, NON-AMBIGUOUS 

iREAD RAM CONTENTS BACK 

iCHECK WITH DATA WRITTEN 

iBR IF OK. DATA IN - DATA OUT 

i WRITTEN DATA NOT - TO READ 

TRAP CIERHRD 
.WORD 408 
.WORD TSBAM2 
.WORD EXPREC 

i SCOPE LOOP 

TRAP CICLPl 
I WAIT FOR READY, NON -AMBIGUOUS 
tWORD WRITE TO SET UP ADDRESS 
iWAIT FOR READY. NON-AMBIGUOUS 
iHIGH BYTE READ OF TSBA 
J DATA PATTERN WRITTEN 
:HIGH TO LOW 

(TOTAL OF BYTES IN LOW BYTE 

tSUM OF BYTES WRITTEN TO TSOB - TSBAH 

iBR IF OK. THEY SHOULD BE 

I 2901 PROBLEM ADDER 

TRAP C$ERHRD 
.WORD 409 
.WORD M2901 
.WORD EXPREC 

(SCOPE LOOP 

TRAP CtCLPl 
(DROP RAM ADDRESS POINTER 
(NOT AT LOC. ZERO YET 

(\\\\\\\\\\\\\ END SUBTEST WWWWWSW 
L 10045: 

TRAP CtESUB 



;//////////// BEGIN SUBTEST //////////// 
T4.3: 

TRAP OBSUB 



M8 



TSV5A - HARDUARE TESTS 
TEST 4: RAM TEST 



585 
586 
587 
588 
589 
590 

591 025372 

592 025376 

596 025400 

597 025402 
025402 
025404 
025406 
025410 

598 025412 

599 025416 

600 025420 

601 025424 

602 025430 

603 025430 
025430 

604 

605 025432 

606 025436 

607 025442 

608 02S446 

609 025452 

610 025456 

611 025462 

612 025464 

616 025466 
025466 
025470 
025472 
025474 

617 025476 

618 025476 
025476 
025476 

619 

620 025500 

621 025502 

622 025506 
623 

624 025510 
025510 
025512 

625 025514 

626 025516 

627 025522 

628 025526 

629 025530 

630 025534 

631 025540 

632 025544 

633 025546 
637 025550 



MACRO M1113 07 FEB-84 10:58 



SEQ 103 



004737 015604* 

103405 

010001 

104455 
000632 
003644' 
011644' 

012702 177777 
005004 

004737 016146' 
105065 000000 



20«; 



25«! 



104404 

004737 
010465 
004737 
110265 
004737 
016501 
120102 
001404 

104456 

000633 

025774' 

015304' 



104405 

005204 
020427 
001350 



104410 

000152 
005304 
004737 
012702 
005001 
010465 
004737 
016501 
120102 
001404 



016146' 

000000 

016146' 

000000 

016146' 

000000 



30*: 



010000 



016146' 
000377 

000000 

016146' 

000000 



35>: 
40<: 



TEST 4, SUBTEST 3 

THIS SUBTEST WRITES RAM UITH ALL ONES 
THEN WALKS A ZERO WORD DOWN THROUGH MEMORY 



JSR 
BCS 

nov 

ERROF 



nov 

CLR 
JSR 
CLRB 

BGNSEG 



JSR 

nov 

JSR 

novB 

JSR 

nov 

CMPB 

BEQ 

ERRHRO 



ENDSEG 



INC 
CMP 
BNE 



PC.SOFINIT 

201 

RO.Rl 

ERRNO . SFIERR . SFIMSG 



♦177777. R2 
R4 

PC.CHKTSSR 
TS0B(R5) 



PC.CHKTSSR 

R4.TSDB(R5) 

PC.CHKTSSR 

R2.TS0B(R5) 

PC.CHKTSSR 

TSBA(R5).R1 

R1.R2 

30* 

ERRNO . TSBAn2 . EXPREC 



R4 

R4.«10000 
25* 



ESCAPE SUB 



tOO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

{CONTENTS OF TSSR REGISTER 

I FATAL ERROR TSSR WAS NOT OK 

TRAP C*EROF 
.WORD 410 
.WORD SFIERR 
.WORD SFIMSG 

(SET DATA AT ALL ONES 
tSET RAM ADDRESS AT ZERO 
iWAIT FOR READY. NON-AMBIGUOUS 
;SET INTO MAINTENANCE MODE 

;>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C*BSEG 

;WAIT FOR READY. NON-AMBIGUOUS 

(LOAD ADDRESS INTO TSDB 

iWAIT FOR READY. NON- AMBIGUOUS 

I LOADS DATA INTO RAM LOCATION 

:WAIT FOR READY. NON-AMBIGUOUS 

(READS WRAP DATA 

I DOES WRITTENCWRAP) - READ ? 

tBR IF OK. THEY ARE EQUAL 

:DATA NOT WRAPPED CORRECTLY 

TRAP C*ERHRD 
.WORD 411 
.WORD TSBAM2 
.WORD EXPREC 

;<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 
10000*: 

TRAP C*ESEG 

sNEXT ADDRESS 

:EN0 OF RAM MEMORY CHECK 

:BR. MORE RAM TO GO 

tNO CHECK IF WRITTEN INCORRECTLY 

TRAP C*ESCAPE 
.WORD L10046-. 



DEC 


R4 


iSET BACK TO 7777 


JSR 


PC.CHKTSSR 


(WAIT FOR READY. N(W -AMBIGUOUS 


MOV 


•000377. R2 


iSET UP EXPECTED DATA REGISTER 


CLR 


Rl 


i CLEAN OUT REGISTER 


MOV 


R4.TSDB(R5) 


1 SELECT ADDRESS IN RAM 


JSR 


PC.CHKTSSR 


{WAIT FOR READY CSSR) 


MOV 


TSBA(R5).R1 


(PICK UP RAM CONTENTS 


CMPB 


R1.R2 


lis MEMORY STILL ALL ONES 


BEQ 


43* 


;BR. IF OK (ALL ONES) 


ERRHRD 


ERRNO . TSBAM3 . EXPREC 


t MEMORY CHANGED AFTER ALL ONES WRITE 



N8 



TSV5A - 
TEST 4 



HARDWARE TESTS 
: RAM TEST 
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SEQ 104 



025550 
025552 
025554 
025556 

638 025560 

639 025562 

640 025566 

641 025572 

642 025576 

643 025602 

644 025606 

645 025610 

649 025612 
025612 
025614 
025616 
025620 

650 025622 
025622 

651 025624 

652 025630 

653 025634 

654 025636 

655 025640 

656 025642 

657 025644 

661 025646 
025646 
025650 
025652 
025654 

662 025656 
025656 

663 025660 

664 025662 
665 

666 025664 
025664 
025664 

667 

668 025666 

669 025672 

670 025674 

671 025700 
025700 
025702 

672 
673 
674 
675 

676 025704 

677 025774 

678 026056 

679 026136 
680 

681 026160 
026160 



104456 

000634 

026056' 

015304- 

005002 

010465 

004737 

110265 

004737 

016501 

120102 

001404 

104456 
000635 
025774- 
015304- 

104406 
004737 
116501 
010203 
000303 
060203 
120103 
001404 

104456 
000636 
025704' 
015304' 

104406 
005304 
001315 



104403 



000000 

016146- 

000000 

016146' 

000000 



016146' 
000001 



004737 016270' 
103002 

000137 024646' 

104432 
000256 



43$: CLR 
MOV 
JSR 
MOVB 
JSR 
MOV 
CMPB 
BEQ 
ERRHRD 



451: CKLOOP 

JSR 

MOVB 

MOV 

SUAB 

ADD 

CMPB 

BEQ 

ERRHRD 



50* : CKLOOP 

DEC 
BNE 

ENOSUB 



JSR 
BCC 
JMP 

63t: EXIT 



R2 

R4.TS0B(R5) 

PC.CHKTSSR 

R2.TS0B(R5) 

PC.CHKTSSR 

TSBA(R5).R1 

R1.R2 

451 

ERRNO , TSBAM2 . EXPREC 



PC.CHKTSSR 

TSBAHCR5),R1 

R2.R3 

R3 

R2.R3 
R1.R3 
501 

ERRNO. M2901, EXPREC 



R4 
40$ 



PC.TSTLOOP 
63$ 
T4L00P 
TST 



LOCAL TEXT MESSAGES FOR TEST 



TRAP 
.UORD 
.WORD 
.WORD 

I SET UP NEW EXPECTED 
(LOAD UP RAM ADDRESS POINTER 
J WAIT FOR READY, NON-AMBIGUOUS 
; WRITE DATA INTO RAM 
(WAIT FOR READY. NON- AMBIGUOUS 
tREAD RAM CONTENTS BACK 
I CHECK WITH DATA WRITTEN 
J BR IF OK, DATA IN - DATA OUT 
(WRITTEN DATA NOT - TO READ 

TRAP 
.WORD 
.WORD 
.WORD 

(SCOPE LOOP 

TRAP 

:WAIT FOR READY. NON -AMBIGUOUS 
(HIGH BYTE READ OF TSBA 
(DATA PATTERN WRITTEN 
sHIGH TO LOW 

(TOTAL OF BYTES IN LOW BYTE 
(SUM OF BYTES WRITTEN TO TSDB - 
(BR IF OK, THEY SHOULD BE 
(2901 PROBLEM ADDER 

TRAP 
.WORD 
.WORD 
.WORD 

{SCOPE LOOP 

TRAP 

(DROP RAM ADDRESS POINTER 
(NOT AT LOC. ZERO YET 



OERHRD 
412 
TSBAM3 
EXPREC 



C$ERHRO 
413 
TSBAM2 
EXPREC 

C$CLP1 



TSBAH 



C$ERHRD 
414 

M2901 
EXPREC 

C$CLP1 



(\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 
L 10046: 

TRAP C$ESUB 

(DO WE NEED TO ITERATE TEST ? 
(BRANCH IF NOT 
(EXECUTE AGAIN 
(ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L10043-. 



040 
040 
127 
122 



124 
127 
162 
101 



123 M2901: 

162 TSBAM2 

151 TSBAM3 

115 TST4I0 



•ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

ENDTST 



• TSBA High Byte Not Sum of Last TSDB Write (2901 Error)' 
' Write to TSDB Not Equal to Read of TSBA Lom Byte' 
'Write To RAM Location Modified Another Location' 
'RAM Verification' 



L10043: 



B9 



TSVSA • HAADUARE TESTS 
TEST 4: RAM TEST 
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692 
6S5 
664 

665 
686 
667 
666 
669 
690 
691 
692 
695 
694 
695 
696 
697 
696 
699 
700 
701 
702 
705 
704 
705 
706 
707 
706 
709 
710 
711 
712 
715 
714 
715 
716 
717 
716 
719 
720 

725 
726 
727 
728 
729 
750 
751 



752 
755 
754 
756 



026160 104401 



TRAP 



SEQ 105 



C»ETST 



.SBTTL TEST 5: SECOND INITIALIZATION TEST 



THIS TEST VERIFIES THE SAIC ELEMENTS AS DID INITIALIZATION TEST 
•1 AND ALSO CHECKS THAT CERTAIN PARTS OF RAH IS CLEARED TO ZERO 
AND THAT 2901 REGISTERS 10 AND 11 ARE ALSO CLEARED TO ZERO. 
THIS IS A COmOENCE CHECK OF A PART OF THE SELF- TEST SEQUENCE 
(I.E.. THAT IT IS REALLY BEING EXECUTED). FOR EACH OF TWO 
SUBTESTS (ONE FOR INITIALIZING VIA A BUS INIT. THE OTHER FOR 
INITIALIZING BY URITING INTO THE TSSR). THE FXLOUING SEQUENCE 
IS PERFORMED: 

1. EACH RAM LOCATION AND 2901 REGISTERS 10 AND 11 ARE SET 
TO ALL IS BY USING URITES INTO THE TSOB REGISTER (LOU 
BYTE AND MAINTENANCE MODE UORO URITES). 

2. THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON 
THE TSSR DESCRIBED IN INITIALIZATION TEST •I ARE 
PERFORNED. 

5. tl'S (577 OCTAL) ARE URITTEN INTO T»C LOU BYTE OF TSOB. 
UHICH SHOULD CAUSE RAM LOCATION 0 TO BE WRITTEN TO ALL 
I'S SINCE 2901 REGISTERS 10 AND 11. SPECIFYING THE RAM 
ADDRESS. SHOULD BE 0. RAM LOCATION 0 IS VERIFIED Bv 
URITING A UORD OF ZEROS INTO T»C TSOB. THE RESULTING 
LOU BYTE OF TSBA SHOULD CONTAIN ALL I'S. 

4. THE ENTIRE RAH IS SCAHMEO. LOCATION 0 SHOULD CONTAIN 
ALL I'S AND T»C REMAINING LOCATIONS. EXCEPT FOR THE 
MESSAGE BUFFER IMAGE AREA. SHOULD CONTAIN 0. 
DISCREPANCIES ARE REPORTED. AN ERROR AT THIS POINT IS 
MOST LIKELY DUE TO A ROM. PIPELINE OR SEQUENCER PROBLEM 
OR A TIMING PROBLEM. 



026162 
026162 

026162 012700 027154' 

026166 004737 016522' 

026172 012757 000024 002214* 

026200 TSLOOPi 

026200 005057 002220* 

026204 
026204 

026204 104402 

026206 004757 015604* 

026212 105404 
026214 

026214 104455 

026216 000765 

026220 005644' 



BGNTS1 

MOV «TST5ID.R0 

JSR PC.TSTSETUP 

MOV 920. .LOOPCNT 

CLR FATFLG 

BGNSUB 



JSR PC.SOFINIT 
BCS 101 

ERRDF ERRNO.SFIERR.SFIMSG 



TSit 

I ASCII MESSAGE TO IDENTIFY TEST 
lOO INITIAL TEST SETUP 
I PERFORM 20 ITERATIONS 

I CLEAR THE FATAL ERROR FLAG 

I //////////// BEGIN SUBTEST //////////// 
T5.1: 

TRAP CtBSUB 

lOO A SOFT TO START 

iBRANCH IF O.K. 

•REPORT ERROR AND DROP DRIVE 

TRAP C»EROF 

.UORO 501 

.HORO SFIERR 



C9 





011644' 










739 026224 


012702 


177777 


10»: 


MOV 


•-1.R2 


740 026230 


005004 






CLR 


R4 


741 026232 


004737 


016146' 




JSR 


PC.CMK'SSR 


742 026236 


105065 


000000 


15»: 


CLRB 


TS0B(R5) 


743 026242 


004737 


016146' 




JSR 


PC.CMKTSSR 


744 026246 


010465 


000000 




MOV 


R4.TS06(R5) 


745 026252 


004737 


016146' 




JSR 


PC.CMKTSSR 


746 026256 


110265 


000000 




MOVB 


R2.TS0B(R5) 


747 026262 


005204 






INC 


R4 


746 026264 


020427 


007777 




CMP 


R4,#7777 


749 026270 


003762 






SLE 


151 


750 026272 








BRESET 




026272 


104433 










751 026274 


004737 


016146' 




JSR 


PC,C»<TSSR 


752 026300 


016501 


000002 




MOV 


TSSR(R5).R1 


753 026304 


010102 






MOV 


R1.R2 


754 026306 


042702 


176277 




SIC 


•tC<MIA00R!0FL>.R2 


755 026312 


052702 


002200 




BIS 


•SSR!NBA.R2 


756 026316 


020102 






CMP 


R1.R2 


757 026320 


001406 






BEQ 


201 


761 026322 








ERROT 


ERRNO . STHERR . STFMSG 


026322 


104455 








026324 


000766 










026326 


003677' 










026330 


011712' 










762 026332 


005237 


002220' 




INC 


FATrLG 


763 026336 






201: 


CKLOOP 




026336 


104406 










764 026340 








ESCAPE 


SUB 


026340 


104410 










026342 


000170 










765 026344 


004737 


016146' 




JSR 


PC.CMKTSSR 


766 026350 


105065 


000000 




CLRB 


TS0B(R5) 


767 026354 


004737 


016146' 




JSR 


PC.C»<TSSR 


768 026360 


005065 


000000 




CLR 


TS0B(R5) 


769 026364 


012702 


000377 




HOV 


♦377. R2 


770 026370 


004737 


016146' 




JSR 


PC.C»<TSSR 


771 026374 


110265 


000000 




MOVB 


R2.TS0B(R5) 


772 026400 


004737 


016146' 




JSR 


PC.C»<TSSR 


773 026404 


005065 


000000 




CLR 


TS0B(R5) 


774 026410 


004737 


016146' 




JSR 


PC.C>«<TSSR 


775 026414 


116501 


000000 




MOVB 


rS8A(R5).RI 


776 026420 


120102 






CMP8 


R1.R2 


777 026422 


001406 






BEQ 


25* 


778 026424 








ERROF" 


ERRNO . T5A00R . EXPREC 


026424 


104455 








026426 


000766 










026430 


027222' 










026432 


015304* 










779 026434 


005237 


002220' 




INC 


FATrtG 


780 026440 






25t: 


CKLOOP 




026440 


104406 










781 026442 








ESCAPE 


SUB 


026442 


104410 










026444 


000066 










782 026446 


012 704 


OOOSIO 




MOV 


•310.R4 



SEQ 106 



.WORD STIMSG 

I ALL ONE DATA PATTERN 

I STARTING RAM ADDRESS 

lUAIT FOR READY. NON-AMBIGUOUS 

I SET MAINTENANCE MODE 

lUAIT FOR READY. NON-AMBIGUOUS 

I SET THE NEXT RAM ADDRESS 

lUAIT FOR READY, NON-AMBIGUOUS 

I LOAD TEST DATA 

I NEXT ADDRESS TO TEST 

I COMPARE TO LAST ADDRESS 

I BRANCH TILL ALL DATA URITTEN 

t ISSUE A BUS RESET 

TRAP CtRESET 
lUAIT FOR READY. NON-AMBIGUOUS 
iGET THE CONTENTS OF TSSR 
•CONTENTS OF TSSR 
I THESE BITS MAY BE SET 
iREADY AND NEW DATA SHOULD BE SET 
I COMPARE EXPECTED TO RECEIVED 
I BRANCH IF COMPARE 
I REPORT A FATAL ERROR 

TRAP C<EROF 
.UORO 502 
.yORO SF«RR 
.yORO SFFMSG 

I SET FATAL ERROR FLAG 

(LOOP ON ERROR IF FLAG SET 

TRAP CICLPl 

lEXlT IF FATAL ERROR DETECTED 

TRAP CtESCAPE 
.yORO L10050-. 

lUAIT FOR SSR TO SET 
I PUT BACK INTO MAINTENANCE MODE 
lUAIT FOR READY. NON-AMBIGUOUS 
•SET ADDRESS BACK TO 0000 

!uAIT FOR READY. NON-AMBIGUOUS 

I SHOULD POINT TO RAM 0 

I WAIT FOR READY. N0N-At«IGU0US 

I SELECT LOCATION 0 

lUAIT FOR READY. NON-AMBIGUOUS 

iREAD RAM LOCATION SPECIFIED 

iLOCAT:ON SHOULD BE 377 OCTAL 

iBR IF OK 

I WASN'T POINTING TO CORRECT LOC. 

TRAP C<ERDF 
.WORD 502 
.WORD T5A0DR 
.WORD EXPREC 

I SET T»C FATAL ERROR FLAG 

I SCOPE LOOP 

TRAP CICLPl 
I NO MORE DCCKS IF FATAL ERROR 

TRAP CtESCAPE 
.yORD L10050-. 

I START WITH LOC 310 
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D9 



TAX 








7M 

/ 








' 






vwwv 


1 WW 






01<%1 Aft* 


7*7 

'Of 








7IUt 
> oo 
















7QO 


















Vsv JVC 


















VX X > xc 




791 








1 












104406 
























WW AC 












795 




OP04P7 


000400 


796 




wvxw^<^ 




797 








7M 




















104403 




f y ▼ 












nA^7X7 
W9 r ^ r 


tif\pppf%* 














AAA7X7 


A1 7A1 A' 


AOS 




AAMX7 
Vw^Vw r 




604 








AOS 








606 


026552 






















607 








606 






VXi>OW* 


609 


026560 








026562 








026562 








026564 


w\^/ » w » 






026566 


W ^ 






026570 






614 


026577 


W AC ' Vc 


1 77777 


615 


026576 


W J^^^^ 




616 


026600 

Wfc WWW 


0047S7 

WW^ ■ f 


VXwX^w 


617 


026604 


105065 


»rt^rWW 


616 


026610 


004737 


016146' 


619 


026614 


010465 


000000 


620 


026620 


004757 


016146' 


621 


026624 


110265 


000000 


622 


0266S0 


005204 




623 


0266S2 


020427 


007777 


624 


0266 36 


003762 




625 


026640 


005065 


000002 


826 


026644 


004737 


016146' 


827 


026650 


0165Q1 


000002 



30t: 



40t: 



501: 



lOt: 
151: 



CLR R2 

JSR PC.CMKTSSR 

nOV R4.TSDB(R5) 

JSR PC.CHKTSSR 

tlOVB TSBA(R5).R1 

CMPB R1.R2 

BEQ 401 

ERRDF ERRNO . T5MEn . SFFKSG 



INC FATFLG 
CKLOOP 



ESCAPE sue 



INC 
CMP 
BNE 

ENOSUB 



TST 
BEQ 
JSR 
CLR 



BGNSUB 



MOV 

CLR 

JSR 

CLRB 

JSR 

MOV 

JSR 

MOVB 

INC 

CMP 

6LE 

CLR 

JSR 

MOV 



R4 

R4,«400 

301 



FATFLG 
501 

PC.CKOROP 
FATFLG 



JSR PC.SOFINIT 
BCS 101 

ERROF ERRNO. SFIERR.SFIMSG 



♦-1.R2 
R4 

PC.CMKTSSR 

TS0B(R5) 

PC.CMKTSSR 

R4.TSDB(R5) 

PC.CHKTSSR 

R2.TSDB(R5) 

R4 

R4,#7777 
15» 

TSSRCRS) 

PC.CMKTSSR 

TSSRfR5).Rl 



SEQ 107 



tMEMORY EXPECTED SHOULD BE 000000 

lUAIT FOR READY. NQN-AMBIGOOUS 

I SELECT LOCATION SPECIFIED 

(WAIT FOP READY, NON- AMBIGUOUS 

I READ LOC CONTENTS 

I CHECK MEMORY FOR 000000 

I BRANCH IF DATA OKAY 

I MEMORY NOT ZERO AFTER INIT . 

TRAP CIEROF 
.WORD 502 
.UORO rsrCH 
.WORD SFFMSG 

I SET THE FATAL ERROR FLAG 

TRAP C»CLPl 

lEXIT ON FATAL ERROR 

TRAP CIESCAPE 
.UORO L10050 . 

iLOOK AT NEXT RAM LOC. 

I AT TOP OF RAM ADDRESS SPACE 

I BRANCH TILL ALL MEMORY TESTED 

i\\\\\\\\\S\\\ END SUBTEST \\\\\\\\\\\N\ 
LIOOSO: 

TRAP CIESUB 

lis FATAL ERROR FLAG SET ? 
I BRANCH IF NOT 

I NO LOOP. TRY TO DROP DEVICE 
I CLEAR THE FATAL ERROR FLAG 



I //////////// BEGIN SUBTEST //////////// 
T5.2i 

TRAP CIBSUB 

iDO A SOFT TO START 

iBRANCH IF O.K. 

•REPORT ERROR AND DROP DRIVE 

TRAP CIEROF 
.UORO 503 
.UORO SFIERR 
.UORO SFIMSG 

I ALL ONE DATA PATTERN 

I STARTING RAM ADDRESS 

lUAIT FOR READY. NON-AMBIGUOUS 

I SET MAINTENANCE MODE 

lUAIT FOR READY. NON-AMBIGUOUS 

I SET THE NEXT RAM ADDRESS 

(WAIT FOR READY. NON AMBIGUOUS 

I LOAD TEST DATA 

iNEXT ADDRESS TO TEST 

(COMPARE TO LAST ADDRESS 

•BRANCH TILL ALL DATA URITTEN 

I ISSUE A SOFT RESET 

iWAIT FOR READY. NON-AMBIGUOUS 

*GET THE CONTENTS OF TSSR 



E9 
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SEQ 108 


TtiT 5 


: SECOND 


INITIALIZATION TEST 












0266S4 


010102 






AAA 

MOV 


Rl ,R2 


1 CONTENTS OF TSSR 






026656 


042702 


'176277 




BIC 


A. A A ^ A AAA i An «. B^ 


1 THESE BITS HAY BE SET 






026662 


052702 


002200 




DTC 

BIS 




iREADY AND NEW DATA SHOULD BE SET 


A V« 


026666 


020102 






CMP 


B 4 B^ 

HI ,H2 


1 COMPARE EXPECTED TO RECEIVED 




032 


026670 


001406 






A 


^A A 

20* 


1 BRANCH IF COMPARE 






026672 








cRROr 


cnBun cpucfiflft cppMtff* 


1 REPORT A FATAL ERROR 






026672 


104455 










TRAP 


C»EROF 




026674 


000770 










.WORD 


504 




026676 


003677' 










.WORD 


SFHERR 




026700 


011712' 










.UORO 


SFFM5G 


037 


026702 


005237 


002220' 




INC 


r ATFLG 


iSET FATAL CRROR FLAG 


A VA 


026706 






20I : 


CKLOOP 




iLOOP ON ERROR IF FLAG SET 






026706 


104406 










TRAP 


C*CLP1 


A 


026710 








CC^ADC 

eStnre 




. f WTT TP PATAl P AA<^% BP TP A TP A 

ICXIT IF rMTML ERROR DcTCCTED 




026710 


104410 










TRAP 


A A ^ ^ A A 

C*ESCAPE 




026712 


000170 










.UORO 


L100S1-. 




026714 


004737 


016146' 




ten 


rCiCMKTSSR 


lUAIT FOR SSR TO SET 


AA % 


026720 


105065 


000000 








irUT BACK INTO nAINTENANCE nODE 






026724 


004737 


016146' 




■CO 


rL • LMK 1 33N 


lUAIT FOR REAOT, NON-ATwIGUOUS 






026730 


005065 


000000 




^1 o 
ULH 




CCT ABBBAAC BAAv TA AAAA 

iSET ADDRESS BACK TO 0000 




AAA 


026734 


012702 


000377 




nuv 


VO f f , He 


1 




AAC 


026740 


004737 


016146' 




ICO 


rL tCMK I55H 


lUAIT FOR READY, NON - ATVIGUOUS 




AA^ 


026744 


110265 


000000 






DO TCnA^DC^ 


PuAl ■ A BATftjT TA BAM A 

1 SHOULD POINT TO RAM 0 




O* 1 


026 750 


004737 


016146' 




ICO 
Jan 


rL •Cratl ban 


■ -■ATT P#^B ^^PABW AA-TBi AMBTAktftetP 

lUAIT FOR READY, NON-AMBIGUOUS 




AAA 

O^O 


026754 


005065 


000000 






TcnD^DK^ 
TSOOlRS J 


PPl PAT 1 ^W> A T T^^A A 

•SELECT LOCATION 0 




AAO 

0*9 


026760 


004737 


016146' 




ICQ 


PCtCMKISSR 


■ ■ATT Ptf^A B^P ABw a ^ M . A^MkTAl ^'W 

itMIT FOR READY, NON-AWIGUOUS 




03U 


026764 


116501 


000000 




novo 


TCDA^DC\ D« 


ff^P A A 1*1 AM ■ tf^A A T T#^kA Aff^P A TP TP A 

iRCAD RAM LOCATION SPECIFIED 




031 


026770 


120102 






CnPB 


Dt DO 

Rl tH2 


1 fl<~ A T Tf^i PA-tfta ■ A BP AATAi 

{LOCATION SHOULD BE 377 OCTAL 




ACO 

032 


026772 


001406 






Bed 


oc * 


Ok 




033 


026774 








ENHUK 


CBCI&iA TKABBB CwfllBCf* 

EHNNO 1 TSAODR • EXPREC 


iuASN'T POINTING TO CORRECT LOC 






026774 


104455 










TRAP 


"C*ER0F 




026776 


000770 










.UORO 


504 




027000 


027222' 










.UORD 


T5ADDR 




027002 


015304' 










.UORO 


EXPREC 


09* 


027004 


005237 


002220' 




INC 


r HIr Lu 


tSET THE FATAL ERROR FLAG 




AC*> 

OP3 


027010 






2S> : 


CKLOOP 




t SCOPE LOOP 






027010 


104406 










TRAP 


C*CLPl 


027012 








ESC Arc 


CI A 

SUB 


tNO MORE CHECKS IF FATAL ERROR 






027012 


104410 










TRAP 


C*ESCAPE 




027014 


000066 










.WORD 


L10051-. 


AC7 

03 r 


027016 


012704 


000310 




nOV 


4 A BA 

•510, R4 


1 START WITH LOC 310 




ACA 

03O 


027022 


005002 






Al A 

CLn 




1 MEMORY EXPECTED SHOULD BE 000000 


A^O 


027024 


004737 


016146' 




JSR 


PC.CHKTSSR 


tUAIT FOR READY. NON-AMBIGUOUS 






027030 


010465 


000000 


9 A A 

301 : 


UAk« 

nov 


R4,TS0B(RS J 


1 SELECT LOCATION SPECIFIED 




OOl 


027034 


004737 


016146' 




JSR 


BA AumVC*^B 

PCCMKTSSR 


lUAIT FOR READY. NON -AMBIGUOUS 




AX^ 

Oo2 


027040 


116501 


000000 




MOVE 


TSBACR5}.R1 


iREAD LOC CONTENTS 




OOS 


027044 


120102 






CnPB 


Rl ,R2 


1 CHECK MEMORY FOR 000000 






027046 


001406 






BP A 

BEQ 


M /\ A 

40* 


{BRANCH IF DATA OKAY 




003 


A^^AKA 

027050 








EHHDr 


cRRNOt T5Mtn,SrFnSU 


{MEMORY NOT ZERO AFTER INIT. 








104455 








TRAP 


C*ERDF 




027052 


000770 










.UORD 


504 




027054 


027164' 










.WORD 


T5MEM 




027056 


011712' 










.UORD 


SFFMSG 


066 


027060 


00S2S7 


002220' 




INC 


TATFLG 


(SET THE FATAL ERROR FLAG 




667 


027064 






40*: 


CKLOOP 










027064 


104406 










TRAP 


C»CLPl 


666 


027066 








ESCAPE 


SUB 


lEXIT ON FATAL ERROR 
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F9 



SEQ 109 



















A57A7A 


AAAA1 O 




















INL 




O r V 




Ucv^c r 






f HD 






Ad71 AA 


AA1 X^'V 










ATP 
















Ad71 A9 

027102 
027102 


104405 










874 














875 


027104 


005737 


002220' 




TST 


FATFLG 


876 


027110 


001402 






BEQ 


50 » 


877 


027112 


004757 


017014' 




JSR 


PC.CKOROP 


878 


027116 


004757 


016270' 


501: 


JSR 


PC.TSTLOOP 


879 


027122 


103002 






BCC 


601 


880 


027124 


000137 


026200' 




JMP 


T5L00P 


881 


027150 
027150 
027152 


104452 

000152 




60t: 


EXIT 


TST 



TRAP 
.WORD 

iLOOK AT NEXT RATI LOC. 

I AT TOP OF RAn ADDRESS SPACE 

iBRANCM TILL ALL MEMORY TESTED 



CIESCAPE 
L10051-. 



882 
885 
884 
885 
886 

887 027154 

888 027164 

889 027222 
890 

891 027264 
027264 
027264 

892 
895 
894 
895 
896 
897 
898 
899 
900 
901 
902 
905 
904 
905 
906 
907 
908 
909 
910 
911 
912 
915 
914 
915 
916 
917 



END SUBTEST \\\\\\\\\\\\\ 
LlOOSi: 

TRAP OESUB 

lis FATAL ERROR FLAG SET ? 
I BRANCH IF NOT 

I NO LOOP. TRY TO DROP DEVICE 
1SHOU.D UE DO ITERATIONS ? 
I BRANCH IF NOT 
I LOOP UNTIL COUNT EXPIRED 
I ALL DONE 7HIS TEST 

TRAP C»EXIT 
.UORD L10047-. 



IlKAL text messages FOR TEST 



105 
111 
111 



104401 



170 
156 
156 



164 TST5ID: 
145 T5MEM; 
145 T5A00R: 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

ENOTST 



'Ext«nd*d Initialization' 
'Incorr«ct RAM Data Aftar Init' 
'Incorract RAH Addrass Aftar Init' 



L10047: 



TRAP 



C«ETST 



.SBTTL TEST 6: COMMAND REJECT 



THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE 
CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADDRESS 
(NBA) BIT BEING SET IN TSSR. AND THAT THE TS6A AND TSSR 
REGISTERS ARE LEFT IN THE PROPER STATE AFTER EACH COMMAND IS 
REJECTED. THIS TEST CHECKS MICROPROCESSOR SEQUENCING. BASIC 
COMMAND DECODING AND OATI DMA HANDLING. THIS TEST CONTAINS TUO 
SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL COMMAND UORDS (OTHER 
THAN URITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT 
CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 
REJECTED COmANDi SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT 
SETS THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN 
INTERRUPT IS GENERATED UHEN THE COMMAND IS REJECTED. SUBTEST 1 
SETS UP THE INTERRUPT SERVICE ROUTINE TO FLAG UNEXPECTED 
INTERRUPTS. THE COMMAND UORD IN THE COMMAND BUFFER IS 
INITIALIZED TO 100000 (OCTAL) AND THE REMAINING THREE WORDS IN 
THE COMMAND BUFFER ARE SET TO KNOWN UNIQUE PATTERNS. THEN THE 
FOLLOWING SEQUENCE IS PERFORMED: 

1. INITIALIZE THE CONTROLLER BY WRITING INTO THE TSSR: 
PROPER INITIAL CONDITIONS ARE VERIFIED. 
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918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
926 
929 
950 
931 
932 
933 
954 
935 
956 
957 
956 
959 
940 
941 
942 
945 
944 
945 
946 
947 
946 
949 
950 
951 
952 
955 

954 027266 
027266 

959 027266 

960 027272 

961 027276 

962 027304 
965 027304 

027304 
027304 

964 

965 027306 
027306 
027312 

966 027514 

967 027520 
966 027524 

969 027326 
027526 

970 027550 

971 027554 
975 027356 
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G9 



SEQ 110 



2. TSDB IS URITTEN WITH ADDRESS OF THE COMMANO BUFFER TO 
START PROCESSING. 

5. THE PROGRAM WAITS FOR SSR TO SETi IF SSR DOES NOT SET. 
AN ERROR REPORT IS ISSUED AND THE TEST IS ABORTED. 

4. THE CONTENTS OF TSSR ARE CHECKED. TSSR IS CORRECT IF 
IT CONTAINS EITHER OCTAL 102206 OR 102506 (BIT 6 
DEPENDS UPON THE STATE OF THE TAPE TRANSPORT). 

5. THE CONTENTS OF TS8A ARE CHECKED. TS8A SHOULD CONTAIN 
THE INITIAL COMMAND SUFFER ADDRESS (LOADED IN STEP 2) 
PLUS 10 (OCTAL)i I.E.. TSBA SHOULD POINT TO THE WORD 
JUST AFTER THE COMMAND PACKET (NOTE THAT 4 COmANO 
PACKET WORDS ARE ALWAYS FETCHED). 

6. USING THE MAINTENANCE MOPE WRAPAROUND FUNCTIONS. THE 
COMMAND IMAGE BLOCK IN THE M7455'S RAM (LOCATIONS 
201-210 (OCTAL)) ARE CHECKED t THE IMAGE SHOULD CONTAIN 
A COPY OF THE FOUR COMMAND PACKET WORDS AS SET UP IN 
CPU MEMORY. 

7. THE COMMAND WORD IN THE COMMAND BUFFER IS INCREMENTED 
TO THE NEXT PATTERN NOT CONTAINING WRITE 
CHARACTERISTICS OR IE. THE REMAINING THREE WORD OF THE 
COMMAND BUFFER ARE SEQUENCED WITH PSEUDO-RANDOM DATA. 
IF THE COMMAND WORD HAS NOT REACHED ITS MAXIMUM VALUE 

( 177777*1 ). THE TEST SEQUENCE IS REPEATED. 



SUBTEST 2 IS IDENTICAL TO SUBTEST 1. EXCEPT THAT THE PROGRAM 
CAUSES THE IE BIT TO BE SET IN EACH COMMAND WORD AND THEN 
VERIFIES THAT AN INTERRUPT OCCURS. 



012700 
004757 
012757 



104402 



012700 
104441 
012704 
012705 
012514 

104404 

004757 
105405 

010001 



050525* 
016522' 
000024 



002214' 



T6L00P: 



BGNTST 

MOV 
JSR 
MOV 

BGNSUB 



#TST6ID.R0 

PC.TSTSETUP 

#20..LOOPCNT 



000000 

050200' 
002750' 



015604- 



SETPRI «PRI00 



5»i 



MOV 
MOV 
MOV 

BGNSEG 

JSR 
BCS 
MOV 



#T6PACKET.R4 

•TSTBLK.R5 

(R5)».(R4) 



PC.SOFINIT 
10 » 
RO.Rl 



T6:: 

I ASCII MESSAGE TO IDENTIFY TEST 
»D0 INITIAL TEST SETUP 
{PERFORM 20 ITERATIONS 

I //////////// BESIN SUBTEST //////////// 
T6.1: 

TRAP CtBSUB 

jLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV ♦PRIOO.RO 
TRAP CtSPRI 

iGET THE ADDRESS OF COMMAND PACKET 

I BLOCK OF TEST DATA 

I INSERT THE NEXT TEST DATA WORD 

I >>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CtBSEG 

I DO SOFT INIT OF CONTROLLER 

jBR IF SOFT INIT - OK 

I SAVE CONTENTS OF TSSR 















'5A 
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IT 6 


: COHMANO REJECT 




976 


027340 






ERROF 


ERRNO . SF lERR . SF IMSG 




027540 


104455 








027S42 


001151 










027544 


005644' 










027346 


011644' 








977 


027350 


005057 


002220' 10*: 


CLR 


FATFLG 


978 


027554 


005057 


002222' 


CLR 


INTRECV 


979 


027560 


004757 


016146' 


JSR 


PC.CMKTSSR 


980 


027564 


042714 


000200 


BZC 


«6IT7.(R4) 


981 


027370 


010465 


000000 


MOV 


R4.TSDB(R5) 


982 


027374 


004737 


016060' 


JSR 


PC.UAITF 


983 


027400 


105407 




BCS 


15» 


984 


027402 


010001 




MOV 


RO.Rl 


988 


027404 






ERROF 


ERRNO. T6SSR.PKTSSR 




027404 


104455 










027406 


001132 










027410 


030235' 










027412 


011656' 








989 


027414 


005237 


002220' 


INC 


FATFLG 


990 


027420 




15»: 


CKLOOP 






027420 


104406 








991 


027422 






ESCAPE 


SUB 




027422 


104410 










027424 


000170 








992 


027426 


005737 


002222' 


TST 


INTRECV 


993 


027432 


001404 




BEQ 


22» 


997 


027434 






ERRHRD 


ERRNO. T6INT .PKTSSR 




027434 


104456 










027436 


001133 










027440 


030313' 










027442 


011656' 








998 


027444 


012702 


102206 22%'. 


nov 


•SC ! NBA ! SSR ! TSRE J . R2 


999 


027450 


004737 


016146' 


JSR 


PC.CHKTSSR 


1000 


027454 


016501 


000002 


nov 


TSSR(R5).R1 


1001 


027460 


032701 


000100 


BIT 


•OFL.Rl 


1002 


027464 


001402 




BEQ 


25» 


1003 


027466 


052702 


000100 


BIS 


•0FL.R2 


1004 


027472 


020201 


25»: 


cnp 


R2.R1 


1005 


027474 


001404 




BEQ 


301 


1009 


027476 






ERRHRO 


ERRNO. T6NBA .PKTSSR 




027476 


104456 








027500 


001134 










027502 


030210' 










027504 


011656' 








1010 


027506 




30<: 


CKLOOP 






W 

027506 


104406 








1011 


027510 


004737 


016146' 


JSR 


PC.CHKTSSR 


1012 


027514 


016501 


000000 


nov 


TS8ACR5).R1 


1013 




O 10402 




nov 


R4.R2 


1014 


027522 


062702 


000010 


ADD 


•10. R2 


1015 


027526 


020102 




cnp 


R1.R2 


1016 


027530 


001404 




BEQ 


35» 


1020 


027532 






ERRHRD 


ERRNO. T6TSBA.EXPREC 




027532 


104456 










027534 


001135 










027536 


030451' 










027540 


015304' 









SEQ 111 



lOEVlCE FATAL ERROR DOPING INIT 

TRAP CIERDF 
.WORD 601 
.WORD SFIERR 
.WORD SFinSG 

I CLEAR FATAL ERROR FLAG 

I CLEAR INTERRUPT RECEIVED FLAG 

lUAIT FOR READY, NON-AMBIGUOUS 

{DISABLE INTERRUPTS 

I SET THE PACKET ADDRESS 

(WAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

I SAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.WORD 602 
.UORD T6SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 

I LOOP ON ERROR. IF FLAG SET 

TRAP C9CLP1 

tBY-PASS SUBTEST IF FATAL ERROR 

TRAP C»ESCAPE 
.UORO L10053-. 

iDID AN INTERRUPT OCCUR ? 

I BRANCH IF NOT 

TRAP C«ERHRD 
.WORD 603 
.UORO T6INT 
.yORO PKTSSR 
lEXPECTEO CONTENTS OF TSSR 
tUAIT FOR READY. NON- AMBIGUOUS 
(GET THE CONTENTS OF TSSR 
lis OFF-LINE BIT SET ? 
iBRANCH IF NOT OFF-LINE 
I SET OFF-LINE IN EXPECTED DATA 
I DOES EXPECTED HATCH RECEIVED ? 
I OKAY IF MATCH 
•NBA NOT SET TO REJECT 

TRAP C9ERMRD 
.UORO 604 
.UORO T6WA 
.UORO PKTSSR 

(LOOP ON ERROR ? 

TRAP C9CLP1 

tUAIT FOR READY. NON-AMBIGUOUS 

iGET TS8A REGISTER CONTENTS 

I START OF THE PACKET 

•EXPECT TSOA TO PACKET • 10 

I COMPARE EXPECTED TO RECcIVED 

lERROR IF NOT EQUAL 

I PRINT THE ERROR £ EXPD/RECV 

TRAP CtERHRD 
.UORD 605 
.UORO T6TSBA 
.UORO EXPREC 



TSV5A • HARDWARE TESTS 
TEST 6: COTtlANO REJECT 



MACRO nuts 07 FEB S4 10:56 



19 



1021 








1022 








102S 


027542 


004737 


010724' 


1024 


027546 


103404 




1020 


027550 








027550. 


104456 






027552 


001136 






027554 


004757' 






027556 


015520' 




1029 


027560 








027560 








027560 


104405 




1030 


027562 


011300 




lOSl 


027564 


042700 


177740 


10S2 


027570 


020027 


000004 


1033 


027574 


001002 




1054 


027576 


062705 


000002 


1035 


027602 


020527 


005060' 


1036 


027606 


105002 




1037 


027610 


000157 


027524' 


1036 








1039 


027614 








027614 








027614 


104405 




1040 








1041 


027616 


005757 


002220* 


1042 


027622 


001402 




1043 


027624 


004757 


017014' 


1044 








1045 


027630 








027630 








027630 


104402 




1046 








1047 


027632 








027632 


012700 


000000 




027636 


104441 




1046 


027640 


012704 


050200* 


1049 


027644 


012705 


002750* 


1050 


027650 


012514 


1051 


027652 






027652 


104404 




1052 


027654 


004757 


015604' 


1053 


027660 


105405 




1057 


027662 


010001 




1056 


027664 








027664 


104455 






027666 


001157 






027670 


003644' 






027672 


011644' 




1059 


027674 


005037 


002220' 


1060 


027700 


005037 


002222* 


1061 


027704 


004737 


016146' 


1062 


027710 


052714 


000200 


1063 


027714 


010465 


000000 


1064 


027720 


004737 


016060' 


1065 


027724 


103407 




1066 


027726 


010001 





35* : 



401: 



451: 



501: 



60*: 



5»: 



101: 



JSR PC.CKRAH 
BCS 401 

ERRHRD ERRNO.PKTRAn.RAHERR 



ENDSEG 



NOV 
BIC 
CMP 



AOO 
CMP 
BHIS 
JMP 

ENDSUB 



TST 
BEQ 
JSR 

BGNSUB 



(R3).R0 
♦177740, RO 
R0.#4 
451 
*2.R5 

R5.«TBLEND 

501 

51 



FATFLG 
601 

PC.CKORQP 



SETPRI tfPRIOO 



NOV •T6PACKET.R4 

NOV *TSTBLK.R5 

NOV (R5)*.(R4) 
BGNSEG 

JSR PC.SOFINIT 

BCS 10« 

MOV RO.Rl 

ERROF ERRNO.SFIERR.SFIMSG 



CLR FATFLG 

CLR INTRECV 

JSR PC.CHKTSSR 

BIS «6IT7.(R4) 

MOV R4.TS0B(R5) 

JSR PC.UAITF 

BCS 15* 

MOV RO.Rl 



SEQ 112 



I SEE If DATA IN RAM IS CORRECT 
•BRANCH IF PACKET IN RAM IS CORRECT 
I REPORT THE RAM ERROR(S) 

TRAP CIERHRO 
.UORD 606 
.UORD PKTRAM 
.UORD RAMERR 
{<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 
10000*: 

TRAP CiESEG 

•PACKET COMMAND WORD 
•GET BITS 0-4 

•DON'T TEST WRITE CHARACTERISTICS 
• BRANCH IF OK 

•GET NEXT UORD FROM DATA TABLE 
•REACHED END OF TABLE ? 
•BRANCH IF END OF TABLE 
•CONTINUE TEST WITH NEW DATA 

•\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 
L 10053: 

TRAP CtESUB 

•ANY FATAL ERRORS ? 

•BRANCH IF NOT 

•TRY TO DROP THE UNIT 

,//////////// BEGIN SUBTEST //////////// 
T6.2: 

TRAP OBSUB 

•LOWER PRIORITY TO ALLOW INTERRUPTS 

NOV tPRIOO.RO 
TRAP CtSPRI 

•GET THE ADDRESS OF COMMAND PACKET 

•START OF TEST DATA 

•PLACE NEXT DATA WORD IN PACKET 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CtBSEG 

•DO SOFT INIT OF CONTROLLER 

•BR IF SOFT INIT - OK 

•SAVE CONTENTS OF TSSR 

•DEVICE FATAL ERROR DURING INIT 

TRAP OERDF 
.WORD 607 
.WORD SFIERR 
.WORD SFIMSG 

•CLEAR FATAL ERROR FLAG 
•CLEAR INTERRUPT RECEIVED FLAG 
•WAIT FOR READY. NON- AMBIGUOUS 
•ENABLE INTERRUPTS 
•SET THE PACKET ADDRESS 
•WAIT FOR SSR TO SET 
•BR IF CARRY SET (GOOD RETURN) 
•SAVE CONTENTS OF TSSR 
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1070 


027730 






ERRDF 




027730 


104455 








027732 


001140 








027734 


030235' 








027736 


011656' 






1071 


027740 


005237 


002220' 


INC 


1072 


027744 




151: 


CKLOOP 




027744 


104406 






1073 


027746 






ESCAPE 




027746 


104410 








027750 


000170 






1074 


027752 


005737*^ 


00^222*^ " ' 


TST 


1075 


027756 


001004 




BNE 


1079 


027760 






ERRHRO 




027760 


104456 








027762 


001141 








027764 


030371' 








027766 


011656' 






1080 


027770 


012702 


102206 22 >: 


MOV 


1081 


027774 


004737 


016146' 


JSR 


1082 


030000 


016501 


000002 


MOV 


1083 


030004 


032701 


000100 


BIT 


1084 


030010 


001402 




BEQ 


1085 


030012 


052702 


000100 


BIS 


1086 


030016 


020201 


25>: 


CMP 


1087 


030020 


001404 




BEQ 


1091 


030022 






ERRHRD 




030022 


104456 








030024 


001142 








030026 


030210' 








030030 


011656' 






1092 


030032 




30$: 


CKLOOP 




030032 


104406 






1093 


030034. < 


004737> 


016146' 


JSR 


1094 


030040 


016501 


000000 


MOV 


1095 


030044 


010402 




MOV 


1096 


030046 


062702 


000010 


ADD 


1097 


030052 


020102 




CMP 


1098 


030054 


001404 




BEQ 


1102 


030056 






ERRHRD 




030056 


104456 






030060 


001143 








030062 


030451' 








030064 


015304' 






1103 










1104 










1105 


030066 


004737 


010724' 35* : 


JSR 


1106 


030072 


103404 




BCS 


1110 


030074 






ERRHRD 



nil 

1112 



030074 
030076 
030100 
030102 
030104 
030104 
030104 
030106 



104456 
001144 

004737' 
015320* 



104405 

011300 



40»! 



ERRDF ERRNQ,T6SSR.PKTSSR 



FATFLG 



INTRECV 
22 > 

ERRHRD ERRN0.T6NINT,PKTSSR 



#SC ! NBA ! SSR ! TSRE J . R2 

PC.CHKTSSR 

TSSR(R5).R1 

♦OFL.Rl 

25* 

«0FL.R2 

R2.R1 

30* 

ERRNO . T6NBA . PKTSSR 



ENOSEG 



MOV 



PC.CHKTSSR 

TSBA(R5).R1 

R4.R2 

#10. R2 

R1.R2 

351 

ERRNO. T6TSBA,EXPREC 



PC.CKRAM 
40» 



CRS),RO 



SEQ lis 



lOEVICE FATAL SSR FAILED TO SET 

TRAP CIEROF 
.WORD 608 
. UORO T6SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 

jLOOP ON ERROR. IF FLAG SET 

TRAP CICLPI 

iBY-PASS SUBTEST IF FATAL ERROR 

TRAP CIESCAPE 
.WORD L10054 . 

lOID AN INTERRUPT OCCUR ? 

I BRANCH IF YES 

{REPORT ERROR IF NO INTERRUPT 

TRAP CtERHRO 
.WORD 609 
.WORD T6NINT 
.WORD PKTSSR 

lEXPECTED CONTENTS OF TSSR 

lUAIT FOR READY, NON-AMBIGUOUS 

iGET THE CONTENTS OF TSSR 

lis OFF-LINE BIT SET ? 

iBRANCH IF NOT OFF-LINE 

I SET OFF-LINE IN EXPECTED DATA 

iDOES EXPECTED MATCH RECEIVED ? 

I OKAY IF MATCH 

iNBA NOT SET TO REJECT 

TRAP C>ERHRD 
.WORD 610 
.WORD T6NBA 
.WORD PKTSSR 

iLOOP ON ERROR ? 

TRAP C»CLP1 

lUAIT FOR READY, NON-AMBIGUOUS 

I GET TSBA REGISTER CONTENTS 

I START OF THE PACKET 

I EXPECT TSOA TO PACKET ♦ 10 

{COMPARE EXPECTED TO RECEIVED 

I ERROR IF NOT EQUAL 

I PRINT THE ERROR £ EXPD/RECV 

TRAP CIERHRO 
.WORD 611 
.WORD T6TSBA 
.WORD EXPREC 



(SEE IF DATA IN RAM IS CORRECT 
iBRANCH IF PACKET IN RAM IS CORRECT 
{REPORT THE RAM ERROR(S) 

TRAP CtERHRO 
.WORD 612 
.WORD PKTRAM 
.WORD RAMERR 
;<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 
100001: 

TRAP CIESEG 
I NEXT PACKET COMMAND UORO 
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1113 
1114 
HIS 
1116 
1117 
1118 
1119 
1120 
1121 



1122 
1123 
1124 
1125 
1126 
1127 
1128 



1129 
1130 
1131 
1132 
1133 
1135 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 



1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 



030110 
030114 
030120 
030122 
030126 
030132 
030134 

030140 
030140 
030140 
030142 
030146 
030150 
030154 
030160 
030162 
030166 
030166 
030170 



030172 
030200 
030200 
030202 
030204 
030206 



042700 
020027 
001002 
062703 
020327 
103002 
000137 



104403 

005737 
001402 
004737 
004737 
103002 
000137 

104432 
000352 



177740 
000004 

000002 
003060' 

027650* 



002220' 

017014' 
016270' 

027304' 



BIC 
CMP 
BNE 
ADD 
CMP 
BHIS 
JMP 

ENOSUB 



•177740.ro 
R0.«4 
45* 
«2.R3 

R3.9TBLEN0 
50* 
5* 



45$: 
50*: 

60$: 
62*: 

! LOCAL STORAGE FOR THIS TEST 



TST 
BEQ 
JSR 
JSR 
BCC 
JMP 
EXIT 



FATFLG 
60* 

PC.CKOROP 

PC.TSTLOOP 

62* 

T6L00P 

TST 



T6PACKET: 



.BLKB lO-<.-TSV2fi7> 



000000 
052525 
125252 
052525 



.UORD 
.UORD 
.WORD 
.WORD 



0 

052525 
125252 
052525 



(LOCAL TEXT MESSAGES FOR TEST 



SEQ 114 



iGET BITS 0-4 

iDON'T TEST WRITE CHARACTERISTICS 
(BRANCH IF NOT WRITE CHARACTERISTICS 
iBY-PASS WRITE CHARACTERISTCS 
I HAVE WE COMPLETED DATA TABLE ? 
(BRANCH IF ALL TESTED 
(TEST WITH NEXT DATA 

(WWWWNWW END SUBTEST WWWWWWN 
L 10054: 

TRAP C*ESUB 

{ANY FATAL ERRORS ? 

(BRANCH IF NOT 

(TRY TO DROP THE UNIT 

(SHOULD WE DO ITERATIONS ? 

(BRANCH IF NOT 

(LOOP UNTIL COUNT EXPIRED 

(ALL DONE THIS TEST 

TRAP C»EXIT 
.WORD L10052-. 



(COMMAND PACKET FOR TEST 

(WILL CONTAIN VARIABLE COMMANDS 



030210 


103 


157 


155 


T6NBA: 


.ASCIZ 


030235 


103 


157 


156 


T6SSR: 


.ASCIZ 


030313 


125 


156 


145 


T6INT: 


.ASCIZ 


030371 


105 


170 


160 


T6NINT: 


.ASCIZ 


030451 


111 


156 


143 


T6TS8A: 


.ASCIZ 


030523 


103 


157 


155 


TST6I0: 


.ASCIZ 












.EVEN 


030542 










ENDTST 


030542 












030542 


104401 











'CoMMnd Not R«J«ct«d' 

'Content* of TSSR Incorroct AFt«r Writ* P*ck*t' 
'Un«xp*ct*d Int*rrupt R*c*;v*d On Writ* Packet' 
'Exp«ct*d Int*rrupt Not R*c*iv*<j On Writ* P*ck*t' 
'Incorr*ct TSBA Addr*«* Aft*r Pack*t Writ*' 
'CoMnand R*j*et' 



L 10052: 



TRAP 



C»ETST 



.SBTTL TEST 7: WRITE CHARACTERISTICS 



THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS 
COMMAND. IT VERIFIES THAT THE COMM/^ BLOCK AND CHARACTERISTICS 
DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY . THE NEED BUFFER 
ADDRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY. AND THAT A PROPER 
MESSAGE PACKET IS STORED. WHERE APPROPRIATE. THIS TEST D%S NOT 
CHECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE 



TSV5A 
TEST 



L9 
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SEQ 115 



1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 



VERIFIED IN SUBSEQUENT TES^S. ALL COTtlANDS EXECUTED IN THIS 
TEST HAVE THE INTERRUPT ENABLE (IE) BIT CLEARED TO ZERO. SO NO 
INTERRUPTS SHOULD BE GENERATED. HOWEVER. THE PROGRAM RUNS AT 
PROCESSOR PRIORITY 0. WITH THE INTERRUPT SERVICE ROUTINE SET UP 
TO FLAG UNEXPECTED INTERRUPTS. IF AN INTERRUPT OCCURS, A 
PROBLEM EXISTS IN EITHER THE PDP-11 BUS INTERFACE SECTION OR IN 
THE ROM OR PIPELINE. 

THIS TEST CHECKS VARIOUS MICROPROGRAM SEQUENCES. COMMAND 
DECODING. DMA LOGIC. AND BASIC PACKET PROTOCOL HANDLING. THIS 
IS THE FIRST TEST IN WHICH DATO DMA CYCLES (FOR STORING THE 
MESSAGE PACKET) ARE PERFORMED. ANY ERRORS IN THE BODY OF THE 
TEST (I.E. ERRORS OTHER THAN INITIALIZATION ERRORS RELATED TO 
!HE TRANSPORT BUS) DEFINITELY INDICATE A BAD M74SS MODULE. 



1184 


030544 








030544 






1189 


030544 


012700 


034033' 


1190 


030550 


004737 


016322' 


1191 


030554 


012737 


000024 


1192 


030562 






1193 


030562 








030562 








030562 


104402 




1194 


030564 


004737 


034062' 


1195 








1196 


030570 








/WAS ^ A 

030570 


012700 


000000 




030574 


104441 




1197 


030576 


012703 


002762' 


1198 


030602 


012704 


032700* 


1199 


030606 


012764 


000010 


1200 


030614 






1201 


030614 








030614 


104404 




1202 








1203 


030616 


004737 


015604' 


1204 


030622 


103405 




1208 


030624 


010001 




1209 


030626 








030626 


104455 






030630 


001275 






030632 


003644' 






030634 


011644' 




1210 


030636 


005037 


002220' 


1211 


030642 


005037 


002222' 


1212 


030646 


010465 


000000 


1213 


030652 


004737 


016146' 


1214 


030656 


103407 




1215 


030660 


010001 




1219 


030662 








030662 


104455 






0S0664 


001276 






030666 


OSSSOl' 





T7L00P: 



BGNTST 

MOV 
JSR 
MOV 

BGNSUB 



•TST7ID.ro 

PC.TSTSETUP 

•20..L00PCNT 



51: 



lot: 



JSR PC.T7REST 
SETPRI «PftIOO 



MOV «TSTBLKaO. .RS 

MOV ♦T7PACKET.R4 

NOV «8..PKBCNT(R4) 

BGNSEG 



JSR PC.SOFINIT 

BCS lot 

MOV RO.Rl 

ERROF ERRNO.SFIERR.SFIMSG 



CLR FATFLG 

CLR INTRECV 

MOV R4.TSDB(R5) 

JSR PC.CHKTSSR 

BCS 15 t 

MOV RO.Rl 

ERRDF ERRN0,T7SSR,PKTSSR 



T7- • 

I ASCII MESSAGE TO IDENTIFY TEST 
I DO INITIAL TEST SETUP 
{PERFORM 20 ITERATIONS 

;//////////// BEGIN SUBTEST //////////// 
T7.1: 

TRAP CIBSUB 
;SET PACKET TO START-UP VALUES 

i LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV «PRI00.R0 
TRAP CtSPRI 

I START OF TEST DATA 

sGET THE ADDRESS OF COMMAND PACKET 

i START WITH MINIMUM ALLOWABLE VALUE 

;>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CtBSEG 



DO SOFT INIT OF CONTROLLER 

BR IF SOFT INIT • OK 

SAVE CONTENTS OF TSSR 

DEVICE FATAL ERROR DURING INIT 

TRAP C»ERDF 
.WORD 701 
.WORD SFIERR 
.WORD SFIMSG 

CLEAR FATAL ERROR FLAG 

CLEAR INTERRUPT RECEIVED FLAG 

SET THE PACKET ADDRESS 

WAIT FOR SSR TC SET 

BR IF CARRY SET (GOOD RETURN) 

SAVE CONTENTS OF TSSR 

DEVICE FATAL SSR FAILED TO SET 

TRAP C«ERDF 
.WORD 702 
.WORD T7SSR 



M9 





030670 


011656' 










1220 


030672 


005237 


002220' 




INC 


FATFLG 


1221 


030676 
030676 


104406 




15»: 


CKLOOP 




1222 


030700 
030700 
030702 


104410 

000152 






ESCAPE 


SEG 


1223 


030704 


005737 


002222' 




TST 


INTRECV 


1224 


030710 


001404 






BEQ 


22 • 


1226 


030712 
030712 
030714 
030716 
030720 


104456 

001277 

C33661' 

011656' 






ERRHRD 


ERRN0.T7INT.PKTSSR 


1229 


030722 


016501 


000002 


22«: 


nov 


TSSR(R5).R1 


1230 


030726 


012702 


000200 




MOV 


•SSR.R2 


1231 


030732 


032701 


000100 




BIT 


«0FL.R1 


1232 


030736 


001402 






BEQ 


25$ 


1233 


030740 


052702 


000100 




BIS 


♦0FL.R2 


1234 


030744 


020201 




25>: 


CMP 


R2.R1 


1235 


030746 


001404 






BEQ 


30$ 


1239 


030750 








ERRHRO 


ERRN0.T7NBA.PKTSSR 




030750 


104456 










030752 


001300 












030754 


033040' 












030756 


011656' 










1240 


030760 
030760 


104406 




30>: 


CKLOOP 




1241 


030762 


004737 


016146' 




JSR 


PC.CHKTSSR 


1242 


030766 


016501 


000000 




nov 


TSBA(RS).R1 


1243 


030772 


012702 


032726' 




MOV 


*T7BFR,R2 


1244 


030776 


032762 


000200 000012 




BIT 


«BIT7.XST2(R2) 


1245 


031004 


001404 






BEQ 


32$ 


1246 


031006 


005237 


002224' 




INC 


EXTFEA 


1247 


031012 


062702 


000002 




ADD 


«2.R2 


1248 


031016 


062702 


000016 


32>: 


ADD 


♦14..R2 


1249 


031022 


020102 






CMP 


R1.R2 


1250 


03'.024 


001404 






BEQ 


35$ 


1254 


031026 








ERRHRO 


ERRNO . T 7 T SBA , EXPREC 




031026 


104456 










031030 


001301 












031032 


033750' 












031034 


015304' 










1255 














1256 














1257 


031036 


004737 


010724' 


35>: 


JSR 


PC.CKRAM 


1258 


031042 


103404 






BCS 


40$ 


1262 


031044 








ERRHRO 


ERRNO . PKTRAM , RAMERR 




031044 


104456 










031046 


001302 












031050 


004737' 












031052 


015320' 










1263 














1264 


031054 
031054 
031054 


104405 




40$: 


ENOSEG 




1265 















SEQ 116 



.WORD PKTSSR 

I SET FATAL ERROR FLAG 

iLOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

I BY -PASS SUBTEST IF FATAL ERROR 

TRAP C«ESCAPE 
.WORD 10000$ . 

I DID AN INTERRUPT OCCUR ? 

(BRANCH IF NOT 

TRAP C$ERHRO 
.UORO 703 
.WORD T7INT 
.WORD PKTSSR 

I GET THE CONTENTS OF TSSR 

I EXPECTED CONTENTS OF TSSR 

lis OFF-LINE BIT SET ? 

t BRANCH IF NOT OFF-LINE 

tSET OFF-LINE IN EXPECTED DATA 

iOOES EXPECTED MATCH RECEIVED ? 

:OKAY IF MATCH 

I NBA NOT ZERO 

TRAP C$ERHRD 
.UORD 704 
.UORD T7NBA 
.UORD PKTSSR 

sLOOP ON ERROR ? 

TRAP C$CLP1 
(UAIT FOR READY. NON -AMBIGUOUS 
tGET TS8A REGISTER CONTENTS 
t START OF THE DATA BUFFER 
:IS EXTENDED FEATURES BIT SET ? 
(BRANCH IF EXTENDED FEATURES OFF 
I SET EXTENDED FEATURES FOR SUBTEST 6 
(EXTRA UORD IF SPECIAL FEATURES 
(EXPECTED CONTENTS OF TSDA 
(COMPARE EXPECTED TO RECEIVED 
(ERROR IF NOT EQUAL 
(PRINT THE ERROR 6 EXPD/RECV 

TRAP C$ERHRD 
.WORD 705 
.UORD T7TSBA 
.UORD EXPREC 



(SEE IF DATA IN RAM IS CORRECT 
(BRANCH IF PACKET IN RAM IS CORRECT 
(REPORT THE RAM ERROR(S) 

TRAP C»ERHRO 

.UORD 706 

.UORD PKTRAM 

.UORD RAMERR 

(<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 
lOOOOt : 

TRAP C«ESEG 
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SEQ 117 



1266 
1267 
1268 
1269 
1270 
1271 



031056 
031062 
031066 
031070 



031074 
031074 
031074 

1272 

1273 031076 

1274 031102 

1275 031104 

1276 031110 
1277 

1278 
1279 
1260 
1261 
1282 
1263 
1284 
1265 
1266 



012364 000006 

020327 003060' 
103002 

000137 030614' 



104403 

005737 002220' 
001402 

004737 017014' 



1267 


031110 
031110 
031110 


104402 




1288 








1289 


031112 








031112 


012700 


000000 




031116 


104441 




1290 


031120 


012703 


032746' 


1291 


031124 


012704 


032700' 


1292 


031130 


004737 


034062' 


1293 








'294 


031134 
031134 


104404 




1295 








1296 


031136 


004737 


015604' 


*297 


031142 


103405 




1301 


031144 


010001 




1302 


031146 
031146 
031150 
031152 
031154 


104455 
001303 
003644' 
011644' 




1303 


031156 


005037 


002223' 


1304 


031162 


010400 




1305 


031164 


061300 




1306 


031166 


056310 


000002 


1307 


031172 


010465 


000000 


1306 


031176 


004737 


016060' 


1309 


031202 


103405 




1310 


031204 


010001 




1314 


031206 
031206 
031210 
031212 


104455 
001304 
033501' 





55»: 



MOV 
CMP 
BHIS 
JMP 

ENOSUB 



TST 
BEQ 
JSR 



(R3)».PKBCNT(R4) 

R3.«TBLEN0 

55 » 

5> 



FATFLG 
60» 

PC.CKOROP 



60$: 
J ♦ 

ItEST 7. SUBTEST 2 

i CHECK THAT UNUSED BITS BEING SET CAUSES 
lURITE CHARACTERISTICS COMMAND TO BE REJECTED 



(SET THE TEST WORD 
iHAS ALL DATA BEEN TESTED ? 
{BRANCH IF ALL DATA DONE 
t BRANCH TILL BACK TO ZERO 

END SUBTEST \\\\\\\\\\\\\ 
L 10056: 

TRAP CIESUB 

(ANY FATAL ERRORS ? 
(BRANCH IF NOT 
:TRY TO DROP THE UNIT 



BGNSUB 



SETPRI «PRIOO 



MOV «T720ATA.R3 

5»: MOV ♦T7PACKET,R4 

JSR PC.T7REST 

BGNSEG 



JSR PC.SOFINIT 

BCS 101 

MOV RO.Rl 

ERROF ERRNO.SFIERR.SFIMSG 



10 «: CLR INTRECV 

MOV R4.R0 

ADO (R3).R0 

BIS 2CR3).(R0) 

MOV R4,TSDBCR5) 

JSR PC.MAITF 

BCS 15$ 

MOV RO.Rl 

ERROF ERRNO . T7SSR . PKTSSR 



J //////////// BEGIN SUBTEST //////////// 
T7.2: 

TRAP C«BSUB 

: LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV «PRIOO.RO 
TRAP C«SPRI 
J START OF TEST DATA FOR SUBTEST 
;GET THE ADDRESS OF COMMAND PACKET 
(RESTORE PACKET TO STARTING VALUES 

•>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C«BSEG 

sDO SOFT INIT OF CONTROLLER 

I BR IF SOFT INIT - OK 

(SAVE CONTENTS OF TSSR 

(DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 
.WORD 707 
.WORD SFIERR 
.WORD SFIMSG 

(CLEAR INTERRUPT RECEIVED FLAG 

(START OF THE COMMAND PACKET 

(OFFSET TO THE DATA WORD TO TEST 

(SET THE DATA BITS TO BE TESTED 

(SET THE PACKET ADDRESS 

(WAIT FOR SSR TO SET 

(BR IF CARRY SET (GOOD RETURN) 

(SAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP C»ERDF 
.WORD 708 
.WORD T7SSR 



BIO 



TSVSA - HARDWARE TESTS MACRO MlllS 
TEST 7: WRITE CHARACTERISTICS 



07 FEB 84 10:56 



SEQ 118 





031214 


011656' 










.WORD 


PKTSSR 


1315 


031216 






15t: 


CKLOQP 




iLOOP ON ERROR, IF FLAG SEf 






031216 


104406 










TRAP 


C»CLP1 


1316 


031220 








ESCAPE 


SEG 


iBY-PASS CHECKS IF FATAL ERROR 






031220 


104410 










TRAP 


CtESCAPE 




031222 


000116 










.WORD 


100001 -. 


1317 


031224 


005737 


002222' 




TST 


INTRECV 


•DID AN INTERRUPT OCCUR ? 




1318 


031230 


001404 






BEQ 


221 


•BRANCH IF NOT 




1322 


031232 








ERRHRO 


ERRNO ,T7INT,PKTSSR 






031232 


104456 










TRAP 


CIERHRD 




031234 


001305 










.WORD 


709 




031236 


033661' 










.WORD 


T7INT 




031240 


011656' 










.WORD 


PKTSSR 


1323 


031242 


016501 


000002 


221: 


MOV 


TSSR(R5),R1 


iGCT THE CONTENTS OF TSSR 




1324 


031246 


012702 


102206 




MOV 


#SC ! SSR ! TSRE J !NBA , R2 


lEXPECTEO CONTENTS OF TSSR 




1325 


03 1252 


032701 


000100 




BIT 


40FL.R1 


lis OFF-LINE BIT SET ? 




1326 


031256 


001402 






BEQ 


251 


{BRANCH IF NOT OFF-LINE 




1327 


031260 


052702 


000100 




QIS 


#0F"L,R2 


iSET OFF-LINE IN EXPECTED DATA 




1328 


031264 


020201 




251: 


CMP 


R2,Rl 


lOOES EXPECTED MATCH RECEIVED 


7 


1329 


031266 


001414 






BEQ 


SOI 


lOKAY IF HATCH 




1330 


031270 


010100 






MOV 


Rl.RO 


lOATA FROM TSSR 




1331 


031272 








XOR 


R2,R0 


iFINO BITS IN ERROR 




1332 


031302 


020027 


002000 




CMP 


RO.#NBA 


lis NBA ONLY BIT IN ERROR ? 




1333 


031306 


001404 






BEQ 


301 


iDON' T PRINT ERROR IF NBA ONLY 


BAD BIT 


1337 


031310 








ERRHRO 


ERRNO . T 72RE J . PK T S SR 


tCOHMANO NOT REJECTED 






031310 


104456 










TRAP 


CtERHRO 




031312 


001306 










.WORD 


710 




031314 


033113' 










.WORD 


T72Rej 




031316 


011656' 










.WORD 


PKTSSR 


1336 


031320 






sot: 


CKLOOP 




iLOOP ON ERROR ? 






031320 


104406 










TRAP 


CICLPl 


1339 


031322 


032701 


002000 




BIT 


#NBA,R1 


lis NBA BIT SET ? 




1340 


031326 


001004 






BNE 


351 


lOKAY IF NBA SET 




1544 


031330 








ERRHRO 


ERRNO . T 72NBA . PK TSSR 


iNBA NOT SET 






031330 


104456 










TRAP 


CIERHRD 




031332 


001307 










.WORD 


711 




031334 


032762' 










.WORD 


T72NBA 




031336 


011656' 










.WORD 


PKTSSR 


1345 


031340 






351: 










1346 


031340 








ENDSCG 




i<<<<<<<<<<<<« END SEGMENT <<<<<<<<<<<<< 




031340 












100001: 






091940 


104405 










TRAP 


CtESEG 


1347 


















1346 


031342 


062703 


000004 




AOO 


•4.R3 


1 POINT TO NEXT DATA PAIR 




1349 


031346 


020327 


032762' 




CMP 


R3.*T72D0NE 


iCOf^ARE TO END OF TEST DATA 




1350 


031352 


103002 






BHIS 


571 


1 BRANCH IF ALL DATA TESTED 




1351 
1352 


031354 


000137 


031124* 




JMP 


5t 


1 BRANCH TILL BACK TO ZERO 




1353 


031360 






57»: 


ENDSUB 




i\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 




031360 












L 10057: 






031360 


104403 










TRAP 


CIESUB 



1354 

1555 
1356 
1557 
1356 
1559 



I ♦ 
I 



jTEST 7. SUBTEST 5 
ICHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED 



TSV5A 
TEST 



ER 



CIO 



07 FEB -64 10:58 



SEQ 119 



1S60 
1S61 
1562 
1363 



I IF ISSUED WITH AN INVALID DATA BLOCK BYTE COUNT 



1364 


031362 








BGNSUB 




031362 












031362 


104402 








1365 












1366 


031364 








SETPRI 




031364 


012700 


000000 








031370 


104441 








1367 


031372 


012703 


000001 




MOV 


136S 


031376 


012704 


052700' 


St: 


MOV 


1369 


031402 


004757 


054062' 




JSA 


1370 












1371 


031406 








BGNSEG 




031406 


104404 








1372 












1373 


031410 


004737 


015604' 




JSR 


1374 


031414 


103405 






BCS 


1S7S 


031416 


010001 






nov 


1579 


031420 








ERROF 




031420 


104455 










031422 


001310 










031424 


003644' 










031426 


011644' 








1380 


031430 


005037 


002222' 


101: 


CLR 


1381 


031434 


010364 


000006 




nov 


1382 


031440 


010465 


000000 




nov 


1383 


031444 


004737 


016060' 




JSR 


1384 


031450 


103405 






BCS 


13SS 


031452 


010001 






nov 


1389 


031454 








ERROF 




031454 


104455 










031456 


001311 










031460 


033501' 










031462 


011656' 








1390 


031464 






15»: 


CKLOOP 




031464 


104406 






1391 


031466 








ESCAPE 




031466 


104410 








031470 


000116 








1392 


031472 


005737 


002222' 




TST 


1374 


AVI A 


001404 






BEQ 


1397 


031500 








ERRHRO 




031500 


104456 










031502 


001312 










031504 


033661' 










031506 


011656' 








1398 


031510 


016501 


000002 


221: 


nov 


1399 


031514 


012702 


102206 




nov 


1400 


031520 


032701 


000100 




BIT 


1401 


031524 


001402 






BEQ 


1402 


031526 


052702 


000100 




BIS 


1403 


031532 


020201 




25»: 


cnp 


1404 


031534 


001414 






BEQ 


1405 


031536 


OlClOO 






nov 



♦1.R5 

#T7PACKET.R4 
PC.T7REST 



PC.SOFINIT 

lot 

RO.Rl 

ERRNO . SF lERR . SF inSC 



INTRECV 

R3.PKBCNT(R4) 

R4.TS0B(R5) 

PC.WAITF 

15 1 

RO.Rl 

ERRNO. T7SSR.PKTSSR 



INTRECV 
22 1 

ERRNO. T7INT .PKTSSR 



TSSR(R5).R1 
*SC!SSR!TSREJ!NBA.R2 
•OFL.Rl 
25 1 

♦0FL.R2 
R2.R1 
30t 
Rl.RO 



I //////////// BEGIN SUBTEST //////////// 
T7.3: 

TRAP CtBSUB 

iLOUER PRIORITY TO ALLOW INTERRUPTS 

nov •PRIOO.RO 
TRAP CtSPRI 

•STARTING BYTE COUNT 

I GET THE ADDRESS OF COnnAND PACKET 

iRESTORE PACKET TO STARTING VALUES 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CtBSEG 



I DO SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT - OK 

I SAVE CONTENTS OF TSSR 

•DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.UCRO 
.MORD 

t CLEAR INTERRUPT RECEIVED FLAG 

I INSERT THE BYTE COUNT FOR TEST 

I SET THE PACKET ADDRESS 

(WAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

I SAVE CONTENTS OF TSSR 

lOEVlCE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
UORO 

iLOOP ON ERROR. IF FLAG SET 

TRAP 

iBY-PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 

I DID AN INTERRUPT OCCUR 7 
•BRANCH IF NOT 



CtEROF 
712 

SFIERR 
SFinSG 



TRAP 
.WORD 
.UORO 
.WORD 

I GET THE CONTENTS OF TSSR 
I EXPECTED CONTENTS OF TSSR 
lis OFF-LINE BIT SET ? 
iBRANCH IF NOT OFF-LINE 
I SET OFF-LINE IN EXPECTED DATA 
(DOES EXPECTED nATCH RECEIVED ? 
I OKAY IF HATCH 
I DATA FROn TSSR 



CtEROF 
715 
T7SSR 
PKTSSR 

CtCLPl 

CtESCAPE 
lOOOOt-. 



CtERHRO 
714 

T7INT 
PKTSSR 



1406 


031540 






1407 


031550 


020027 


002000 


1406 


031554 


001404 




1412 


031556 








031556 


104456 






031560 


001313 






031562 


033212' 






031564 


011656' 




141S 


031566 








031566 


104406 




1414 


051570 


032701 


002000 


1415 


031574 


001004 




1419 


031576 








031576 


104456 






031600 


001314 






051602 


052762 






• M.0^M 

051604 


011656' 




14?0 


031606 






1421 


031606 








031606 








031606 


104405 




1422 








1423 


031610 


005203 




1424 


031612 


020327 


000006 


1425 


031616 


002002 




1426 


031620 


0001S7 


031376' 


1427 








1428 


031624 








031624 








031624 


104403 




1429 








1430 








1431 








1452 








1433 








1434 








1455 








1456 








1457 








1450 








1459 


051626 








031626 








051626 


104402 




1440 








1441 


031630 








051650 


012700 


000000 




051654 


104441 










AV97^£. 

05c r 4d 


1443 


031642 


012704 


032700 


1444 


0S1646 


004737 


034062 


1445 








1446 








1447 


031652 


004737 


015604 


1448 


031656 


103405 




1452 


031660 


010001 




1453 


031662 








031662 


104455 





7 FEB -64 10:56 



DIO 



SEQ 120 



30t; 



35$: 



571 ! 



XOR 
CMP 

BEQ 

ERRHRO 



CKLOOP 

BIT 
BNE 

ERRHRO 



ENOSEG 



INC 
CMP 
BGE 
JMP 

ENDSUB 



R2.R0 

RO.«NBA 

301 

ERRNG. r73REJ.PKTSSR 



•NBA.Rl 

551 

ERRNO , T 72NBA .PKTSSR 



R3 

R3.«6 

571 
SI 



iriNO BITS IN ERROR 

lis NBA ONLY BIT IN ERROR ? 

iDON'T PRINT ERROR V NBA ONLY BAD BIT 

I COMMAND NOT REJECTED 

TRAP 



iLOOP ON ERROR ? 

lis NBA BIT SET ? 
I OKAY If NBA SET 
I NBA NOT SET 



.UORD 
.UORD 
.UORD 

TRAP 



TRAP 
.UORD 
.UORD 
.UORD 



CtERHRO 
715 

T73REJ 
PKTSSR 

CtCLPl 



CtERHRO 
716 

T72NBA 
PKTSSR 



i<<<<<<<<<«<<< END SEGMENT <«<<<<<<<<<<< 
lOOOOt: 

TRAP CtESEG 

{NEXT BYTE COUNT 

I TESTED ALL INVALID ? 

I BRANCH IF TEST DONE 

I BRANCH TILL BACK TO ZERO 

END SUBTEST WWWWWSW 
L10060: 

TRAP CtESUB 



I* 

I TEST 7. SUBTEST 4 

{'subtest to verify that a URITE CHARACTERISTICS COMMAND IS 

{REJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED. 

I 

I - 



5$: 



BGNSUB 



SETPRI CPRIOO 



MOV «T72DATA.R3 
MOV #r7PACKET.R4 
JSR PC,T7REST 



{//////////// BEGIN SUBTEST ///''//////// 
T7.4: 

TRAP CIBSUB 

iLOUER PRIORITY TO ALLOW INTERRUPTS 

MOV •PRIOO.RO 
TRAP CtSPRI 
I START OF TEST DATA FOR SUBTEST 
I GET THE ADDRESS OF COMMAND PACKET 
{RESTORE PACKET TO STARTING VALUES 



JSR PC.SC^INIT 

BCS 10* 

MOV RO.Rl 

ERRDF ERRNO. SFIERR.SFIMSG 



I 00 SOFT INIT OF CONTROLLER 
iBR IF SOFT INIT - OK 
iSAVE CONTENTS OF TSSR 
(DEVICE FATAL ERROR DURING INIT 

TRAP C*ERDf 



TSV5A - HARDWARE TESTS ~. 
TEST 7: URITE CHARACTERIS 



MACRO mil5 

IISTICS 



07 FEB 84 10:Sa 



ElO 



SEQ 121 





031664 


001315 










031666 


003644' 










031670 


011644' 








1454 


031672 


005037 


002222' 101: 


CLR 


INTRECV 


1455 


031676 


052737 


^^^^^^^^^^ A 9 ^ A 4k ■ 

000001 032710' 


BIS 


•1,T70ATA 


1456 


031704 


010465 


000000 


MOV 


R4.TS0BCR5) 


1457 


031710 


004737 


016060' 


JSR 


PC.WAITF 


1456 


051714 


103405 




6CS 


15* 


1459 


031716 


010001 




NOV 


RO.Rl 


146S 


031720 






ERROF 


ERRNO , T 7SSR . PKTSSR 




031720 


104455 








031722 


001316 










031724 


03SS01' 










031726 


011656' 








1464 


031730 
031730 


104406 


151: 


CKLOOP 




1465 


031732 
031732 
031754 


104410 

AAA* • f 

000116 




ESCAPE 


SUB 


1466 


031736 


005737 


002222' 


TST 


INTRECV 


1467 


031742 


001404 




BEQ 


22* 


1471 


031744 






errhro 


^■ktfk&A^k V^VAaV fl^a^VAAfl^ 

ERRNO • T7INT .PKTSSR 




031744 


104456 








031746 


001317 










031750 


033661' 










031752 


011656' 








1472 


031754 


016501 


000002 221: 


NOV 


TSSR(R5).R1 


1473 


031760 


012702 


102206 


MOV 


#SC ! SSR ! TSRE J ! NBA . R2 


1474 


031764 


032701 


000100 


BIT 


•OFL.Rl 


1475 


031770 


001402 




BEQ 


25* 


1476 


031772 


052702 


000100 


BIS 


40Fl.,R2 


1477 


031776 


020201 


25t: 


CMP 


R2.R1 


1478 


032000 


001414 




BEQ 


30* 


1479 


032002 


010100 




MOV 


Rl.RO 


1480 


032004 






XOR 


R2.R0 


1461 


032014 


020027 


002000 


CMP 


R0.4fBA 


1402 


032020 


001404 




BEQ 


30* 


1466 


032022 






ERRHRO 


ERRNO. T74REJ.PKTSSR 




032022 


104456 








032024 


001320 










032026 


033305' 










A V AA V A 

032030 


011656' 








1467 


032032 
032032 


104406 


30* : 


CKLOOP 




1466 


032034 


032701 


002000 


BIT 


4NBA.R1 




0S2040 


Q01004 




BNE 


35* 


1493 


032042 






ERRHRO 


ERRNO , T 72NBA . PKTSSR 




032042 


104456 








032044 


001321 










032046 


032762' 










032050 


011656' 








1494 












1495 


032052 
032052 
032052 


104403 


35*: 


ENDSUB 





C*EROF 
716 
T7SSR 
PKTSSR 

C*CLPl 

C*ESCAPE 
L10061-. 



C*ERHRD 
719 
T7INT 
PKTSSR 



1496 
1497 



.WORO 717 

.UORD SFIERR 

.worn) SFIMSG 
I CLEAR INTERRUPT RECEIVED FLAG 
iMAKE ADDRESS ODD 
I SET THE PACKET ADDRESS 
lUAIT FOR SSR TO SET 
I BR IF CARRY SET CGOCD RETURN) 
I SAVE CONTENTS OF TSSR 
tDEVICE FATAL SSR FAILED TO SET 

TRAP 

.UORD 

.WORD 

.WORD 

iLOOP ON ERROR. IF FLAG SET 

TRAP 

iBY-PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 

I DID AN INTERRUPT OCCUR ? 
I BRANCH IF NOT 

TRAP 
.WORD 
.WORD 
.WORD 

iGEI THE CONTENTS OF TSSR 

{EXPECTED CONTENTS OF TSSR 

lis OFF-LINE BIT SET ? 

iBRANCH IF NOT OFF-LINE 

I SET OFF-LINE IN EXPECTED DATA 

I DOES EXPECTED MATCH RECEIVED ? 

tOKAY IF MATCH 

(DATA FROM TSSR 

I FIND BITS IN ERROR 

(IS NBA ONLY BIT IN ERROR ? 

{DON'T PRINT ERROR IF NBA ONLY BAD BIT 

I COMMAND NOT REJECTED 

TRAP C*ER»«D 
.WORD 720 
.WORD T74REJ 
.WORD PKTSSR 

(LOOP ON ERROR ? 

TRAP C*CLP1 

lis NBA BIT SET ? 
I OKAY IF NBA SET 
iNBA NOT SET 

TRAP C*ERHRD 
.WORD 721 
.WORD T72NBA 
.WORD PKTSSR 

i\\\\\\\N\\\\\ END S'JBTEST \\\\\\\\\\\\\ 
L10061: 

TRAP C*ESUB 



TSV5A - HARDWARE TESTS HACRO MlllS 
TEST 7: URITE CHARACTERISTICS 

1498 
1499 

1500 
1501 
1502 
1503 
1504 
1505 
1S06 



1507 


032054 








032054 








032054 


1 AAA A3 




1508 








1509 032056 








0320!>6 


A1 37AA 
Vic f 


AA<VtAA 










1510 




A1 37AT 
vie f\J9 




1511 




A1 07AA 


AV^7AA' 


1512 


032074 


AAAT V7 




1515 








1514 


092100 








092100 


« AAAAA 




15 15 








1516 


092 102 


AAA7V7 
UW4 f 3 f 


Al C^AA « 

015004' 


1517 


032106 


1 AttilAC 

103405 




1521 


032110 


At A^^« 




1522 


032112 








032112 








032114 


AA1 






032116 


005o4* 






032120 


All • 

011044 




1523 


032122 


AACAV^ 

005037 


002222 


1524 


032126 


Al AW7 


03Cf 14' 


1525 


032132 


Af AAAC 


AAAAAA 

oooooo 


1526 


032136 




OIoOdO 


1527 


032142 






1528 


032144 


Al AAA1 




1532 


032146 








032146 


1044 SS 






032150 


001323 






032152 


033501* 






032154 


01I6S6' 




1533 


032156 








032156 


104406 




1534 


032160 








032160 


104410 






032162 


000116 




1535 032164 


005737 


002222* 


1536 


032170 


001404 




1540 032172 








032172 


104456 






032174 


001324 






032176 


033661' 






032200 


011656' 




1541 


032202 


016501 


000002 


1542 032206 


012702 


102206 


1543 


032212 


032701 


000100 
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FiO 



SEQ 122 



I ♦ 



I TEST 7. SUBTEST 5 

IcHECK THAT URITE CHARACTERISTICS COMMAND IS REJECTED If THE 
iMESSAGE BUFFER LENGTH SPECIFIES AN INVALID COO^T (LESS THAN 14) 



BGNSUB 



SETPRI •PRIOO 



5t: 



MOV 
MOV 
JSR 

BGNSEG 



*1.R3 

«T7PACKET.R4 
PC.T7REST 



I //////////// BEGIN SUBTEST //////////// 
T7.5: 

TRAP C*BSUB 

iLOUER PRIORITY TO ALLOW INTERRUPTS 

MOV tPRIOO.RO 
TRAP OSPRI 

I STARTING BUFFER LENGTH 

I GET THE ADDRESS OF COMMAND PACKET 

iRESTORE PACKET TO STARTING VALUES 

{>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CtBSEG 



lOti 



15t! 



22«; 



ICO 




. AA CnCT TklTT AC f^^^jTDAI 1 CO 




BCS 


10* 


iBR IF SOFT INIT ■ OK 




MOV 


RO.Rl 


iSAVE CONTENTS OF TSSR 




ERROF 


ERRNO . SF lERR . SF IHSG 


iDEVlCE FATAL ERROR DURING INIT 








TRAP 


CtEROF 






.WORD 


722 






.WORD 


SFIERR 






.WORD 


SFIMSG 


CLR 


INTRECV 


t CLEAR INTERRUPT RECEIVED FLAG 




MOV 


R3.T70ATA*4 


(INSERT THE BAD MESSAGE LENGTH 




MOV 


R4.TS0B(R5) 


iSET THE PACKET ADDRESS 




JSR 


PC.UAITF 


tWAIT FOR SSR TO SET 




BCS 


151 


iBR IF CARRY SET (GOOD RETURN) 




MOV 


RO.Rl 


:SAVE CONTENTS OF TSSR 




ERROF 


ERRNO. T7SSR.PKTSSR 


•DEVICE FATAL S&S FAILED TO SET 








TRAP 


CtEROF 






.WORD 


723 






.WORD 


T7SSR 






.WORD 


PKTSSR 


CKLOOP 




iLOOP ON ERROR. IF FLAG SET 








TRAP 


CICLPI 


ESCAPE 


SEG 


iBY-PASS SUBTEST IF FATAL ERROR 








TRAP 


C»ESCAPE 






.WORD 


10000*-. 


TST 


INTRECV 


lOID AN INTERRUPT OCCUR ? 




BEQ 


22* 


tBRANCH IF NOT 




ERRHRD 


ERRNO. T7INT.PKTSSR 










TRAP 


C«ERHRD 






.WORD 


724 






.WORD 


T7INT 






.WORD 


PKTSSR 


MOV 


TSSR(R5).R1 


iGET THE CONTENTS OF TSSR 




MOV 


*SC!SSR!TSREJ!NBA.R2 


t EXPECTED CONTENTS OF TSSR 




BIT 


•OFL.Rl 


lis OFF-LINE BIT SET ? 
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1544 
1545 
1546 
1547 
1540 
1549 
1550 
1551 
1555 



1556 

1557 
1556 
1562 



1563 
1564 



1565 
1566 
1567 
1566 
1569 
1570 
1571 



1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1560 
1561 
1562 
1563 
1564 
1565 



1566 
1567 
1566 



1569 



032216 
032220 
032224 
032226 
032230 
032232 
032242 
032246 
032250 
032250 
032252 
032254 
032256 
032260 
032260 
032262 
032266 
032270 
032270 
032272 
032274 
032276 
032300 
032300 
032300 
032300 

032302 
032304 
032310 
032312 

032316 
032316 
032316 



032320 
032320 
032320 
033322 
032326 
032330 
032330 
032332 
032334 



001402 

052702 000100 
020201 
001414 
010100 

020027 002000 
001404 

104456 

001325 

033403' 

011656' 

104406 

032701 002000 
001004 

104456 

001326 

032762' 

011656' 



104405 

005203 

020327 000016 
002002 

000137 032070' 



104403 



104402 

005737 002224' 
001002 

104432 

001576 

004737 034062' 
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SEQ 123 



25t; 



30$: 



351: 



57$: 



BEQ 


251 


1 BRANCH IF NOT OFF-LINE 


BIS 


•0FL.R2 


iSET OFF-LINE IN EXPECTED DATA 


CMP 


R2.R1 


iDOES EXPECTED MATCH RECEIVED ? 


BEQ 


301 


J OKAY IF MATCH 


MOV 


Rl.RO 


iDATA FROM TSSR 


XOR 


R2.R0 


iFINO BITS IN ERROR 


CMP 


RO.«NBA 


lis NBA ONLY BIT IN ERROR ? 


BEQ 


30* 


iDON'T PRINT ERROR IF NBA ONLY BAD BIT 


ERRHRO 


ERRNO. T75REJ.PXTSSR 


1 COMMAND NOT REJECTED 



CKLOOP 

BIT 
BNE 

ERRHRO 



ENDSEG 



INC 
CMP 
BGE 



ENDSUB 



«NBA,R1 
35 » 

ERRNO . T 72NB A . PK TSSR 



R3 

R3.#14. 

57* 

5* 



iLOOP ON ERROR ? 

lis NBA BIT SET ? 
lOKAY IF NBA SET 
iNBA NOT SET 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



TRAP 
.UORO 
. WOWO 
.UORO 



C*ERHRD 
725 

T75REJ 
PKTSSR 

C»CLPl 



C*ERHRD 

726 

T72NBA 
PKTSSR 



i<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 
10000*: 

TRAP CIESEG 

iNEXT BUFFER LENGTH 

{HAVE ALL BAD VALUES BEEN TESTED ? 

(BRANCH IF ALL TESTED 

i BRANCH TILL BACK TO ZERO 

END SUBTEST \\\\\\\\\\\\\ 
L10062: 

TRAP C*ESUB 



TEST 7. SUBTEST 6 

THIS SUBTEST IS EXECUTED ONLY IF THE EXTENDED 

FEATURES MODE IS ENABLED (AS DETERMINED BY EXAMINING 

XST2 AFTER A PREVIOUS EXECUTION OF WRITE CHARACTERISTICS). 

IT VERIFIES THAT A FIFTH CHARACTERISTICS DATA WORD IS FETCHED 

IF THE BYTE COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL 

OR GREATER. 



BGNSUB 



TST 
BNE 
EXIT 



4*: 



JSR 



EXTFEA 

4* 

TST 



PC,T7REST 



I //////////// BEGIN SUBTEST //////////// 
T7.6: 

TRAP C*BSUB 
tIS EXTENDED FEATURES Sr. T. SW SET? 
iBR. IF SOFTWARE SWITC»' IS SET (ON) 
iNO EXTENDED FEATURES tXiT THIS TEST 

TRAP C*EXIT 
.WORD L10055 . 
I SET PACKET TO START-UP VALUES 



TSV5A 
TEST 



HARDUARE TESTS 
7: WRITE ChARACTI 



HAl 
ERIS 



ICS 
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HIO 



1590 
1591 



1592 
1595 
159* 
1595 
1596 
1597 

1598 
1599 
1600 
1604 
1605 



1606 
1607 
1608 
1609 
1610 
1611 
1615 



1616 
1617 

1618 



1619 
1620 
1624 



1625 
1626 
1627 
1626 
1629 
16S0 
1631 
1635 



1636 



032340 
032340 
032344 
032346 
032352 
032356 
032364 
032372 
032372 
032372 

032374 
032400 
032402 
032404 
032404 
032406 
032410 
032412 
032414 
032420 
032424 
032430 
032434 
032436 
032440 
032440 
032442 
032444 
032446 
032450 
032454 
032454 
032456 
032456 
032460 
032462 
032466 
032470 
032470 
032472 
032474 
032476 
032S00 
0S2S04 
032510 
032514 
032516 
032522 
032524 
032526 
032526 
032530 
032532 
032534 
032536 



012700 000000 
104441 

012703 002764' 

012704 032700' 
012737 000200 032720' 
012764 000012 000006 



5t: 



104404 

004737 
103405 
010001 

104455 

001327 

003644* 

011644' 

005037 

005037 

010465 

004737 

103407 

010001 

104455 

001330 
033501' 
011656' 
005237 

104406 

104410 
000156 
005737 
001404 

104456 

001331 

033661' 

011656' 

016501 

012702 

032701 

001402 

052702 

020201 

001404 

104456 

001332 

033040* 

011656* 



015604' 



002220' 
002222' 
000000 
016146' 



lot: 



002220' 



002222' 



151: 



000002 
000200 
000100 

000100 



22»: 



25»: 



SETPRI «mioo 



nOV *TSTBLK*12..R3 

nOV »T7PACKET.R4 

MOV «200.T7SP 

nOV #10..PKBCNT(R4) 

BGNSEG 



JSR PC.SOFINIT 

BCS 10 » 

nOV RO.Rl 

ERRDF ERRNO.SFIERR.SFinSG 



CLR FATFLG 

CLR INTRECV 

MOV R4.TS0B(R5) 

JSR PC.CMCTSSR 

BCS 15t 

MOV RO.Rl 

ERROF ERRN0.T7SSR.PKTSSR 



INC FATFLG 
CKLOOP 

ESCAPE SEG 



30*: 



TST 

B|Q^ 
ERRHRO 



nov 
nov 

BIT 
BEQ 
BIS 
CMP 
BEQ 
ERRHRO 



CKLOOP 



INTRECV 
22» 

ERRN0.T7INT.PKTSSR 



TSSR(R5).R1 
♦SSR,R2 
•OFL.Rl 
25* 

♦0FL.R2 

R2.R1 

30* 

ERRNO . T 7NBA . PK TSSR 



SEQ 124 



iLOUER PRIORITY TQ ALLOW INTERRUPTS 

MOV •PRIOO.RO 
TRAP C«SPRI 

iSTART OF TEST DATA 
I GET THE ADDRESS OF COMMAND PACKET 
I SPECIAL BIT SET FOR EXTFEA RAM RO 
I START WITH EXTENDED FEATURES VALUE 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C»BSEG 

jDO SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT - OK 

I SAVE CONTENTS OF TSSR 

lOEVICE FATAL ERROR DURING INIT 

TRAP CtEROF 
.WORD 727 
.WORD SFIERR 
.WORD SFIMSG 

I CLEAR FATAL ERROR FLAG 

I CLEAR INTERRUPT RECEIVED FLAG 

I SET THE PACKET ADDRESS 

tWAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

I SAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP C*ERDF 
.WORD 728 
.WORD T7SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 

iLOOP ON ERROR. IF FLAG SET 

TRAP C*CLP1 

iBv-PASS SUBTEST IF FATAL ERROR 

TRAP C*ESCAPE 
.WORD 10000*-. 

I DID AN INTERRUPT OCCUR ? 

I BRANCH IF NOT 

TRAP C*ERHRD 
.WORD 729 
.WORD I7INT 
.WORD PKTSSR 

iGET THE CONTENTS OF TSSR 

I EXPECTED CONTENTS OF TSSR 

lis OFF-LINE BIT SET ? 

I BRANCH IF NOT OFF-LINE 

.SET OFF-LINE IN EXPECTED DATA 

I DOES EXPECTED MATCH RECEIVED ? 

I OKAY IF MATCH 

I NBA NOT ZERO 

TRAP C»ERHRO 
.WORD 730 
.WORD T7NBA 
.WORD PKTSSR 

iLOOP ON ERROR ? 
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: WRITE 
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03^36 


104406 










1637 


03P540 


004737 


016146- 




JSR 


PC.CMKTSSR 


1638 




016501 


000000 




MOV 


TSBACRS).R1 


1639 




012702 


032726* 




NOV 


♦T7BFR.R2 


1640 


032554 


032762 


000200 000012 




BIT 


•6IT7.XST2CR2) 


1641 




001402 






BEQ 


32* 


1642 


032564 


062702 


000002 




ADO 


*2.R2 


1643 


032570 


062702 


000016 


321: 


ADD 


♦14., R2 


1644 


032574 


020102 






CMP 


R1.R2 


1645 


032576 


001404 






BEQ 


35 » 


1649 


032600 








ERRHRO 


ERRN0.T7TSBA.EXPREC 




032600 


104456 












032602 


001333 












032604 


033750' 












032606 


015304* 










1650 














1651 














1652 


0S2610 


012704 


032710' 


S5t: 


nov 


*T70ATA,R4 


1653 


032614 


004737 


011034' 




JSR 


PC.CKRAN2 


1654 


032620 


103404 






BCS 


40t 


1656 


032622 








ERRHRD 


ERRNO . PK TRAM . RAMERR 




032622 


104456 










032624 


001334 












032626 


004737' 












0S2630 


015320' 










1659 














1660 


032632 


012704 


032700' 


40t: 


nov 


•T7PACKET.R4 


1661 


032636 








ENDSEG 






032636 














032636 


104405 










1662 














1663 


0S2640 


012364 


000006 




NOV 


(R3)».PKBCNT(R4) 


1664 


052644 


020327 


003060' 




CMP 


R3.«TBLEND 


1665 


0S2650 


103002 






BHZS 


55 1 


1666 


032652 


000137 


032372' 




JMP 


5t 


1667 














1668 


032656 






55$: 


EMOSUB 






032656 














0S26S6 


104403 










1669 














1670 


032660 


005737 


002220' 




TST 


FATFLG 


1671 


032664 


001402 






BEQ 


60* 


1672 


032666 


004737 


017014- 




JSR 


PC.CKOROP 


1673 


032672 






60t: 




1674 


0S2672 








EXIT 


TST 




032672 


104432 












032674 


001234 










1675 














1676 








i ♦ 






1677 








t LOCAL 


STORAGE 


FOR THIS TEST 


1678 








1 - 






1679 














1681 


032676 








.BLKB 


10-*.-TSV2C7> 


1683 


032700 






T7PACKET: 




1684 


032700 


100004 






.WORD 


100004 


1685 


032702 


032710' 






.UORO 


T70ATA 


1686 


032704 


000000 






.WORD 


0 



SEQ 125 



TRAP C*CLP1 

iWAIT FOR READY. NONANBIGUOUS 

iGET TSBA REGISTER CONTENTS 

(START OF THE DATA BUFFER 

lis EXTENDED FEATURES BIT SET ? 

iBRANCH IF EXTENDED FEATURES OFF 

lEXTRA UORO IF SPECIAL FEATURES 

(EXPECTED CONTENTS OF TSOA 

I COMPARE EXPECTED TO RECEIVED 

(ERROR IF NOT EQUAL 

(PRINT THE ERROR £ EXPO/RECV 

TRAP C*ERHRD 
.WORD 731 
.WORD T7TSBA 
.WORD EXPREC 



(SET POINTER FOR CHECKER 
(SEE IF DATA IN RAM IS CORRECT 
(BRANCH IF PACKET IN RAM IS CORRECT 
(REPORT THE RAM ERROR(S) 

TRAP C*ERMRO 
.WORD 732 
.WORD PKTRAM 
.WORD RAMERR 

(RESET PACKET POINTER 

(<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 
10000*: 

TRAP CIESEG 

(SET THE TEST UORO 
(HAS ALL DATA BEEN TESTED ? 
(BRANCH IF ALL DATA DONE 
(BRANCH TILL BACK TO ZERO 

i\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 
L 10063: 

TRAP C*ESUB 

(ANY FATAL ERRORS ? 

(BRANCH IF NOT 

(TRY TO DROP THE UNIT 

(ALL DONE THIS TEST 

TRAP C*£XIT 
.UORO L10055-. 



(COMMAND PACKET FOR TEST 

(WRITE CHARACTERISTICS COMMAND. WITH ACK 

(ADDRESS OF CHARACTERISTICS BLOCK 



JIO 
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SEd 126 



1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1706 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1736 
1739 
1740 
1741 
1742 
1743 



0S2706 000010 



032710 
032710 
052712 
052714 
032716 
032720 

032722 
032726 



032746 
032746 
032752 
032756 



032762 
033040 
033113 
033212 
033305 
033403 
033501 
033570 
033661 
033750 
034033 



034062 
034062 
034066 



032726' 

000000 

000016 

000000 

000000 

000000 000000 



000000 037140 

000002 000001 

000004 100100 
032762' 



116 
127 
127 
127 
127 
127 
103 
105 
125 
111 
127 



102 
122 
122 
122 
122 
122 
157 
170 
156 
156 
162 



101 
111 
111 
111 
111 
111 
156 
160 
145 
143 
151 



.WORD 8. 



T70ATA: 

T7SPi 
T/BFR: 



.UQRD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.BLKU 



T7BFR 

0 

14. 

0 
0 

0.0 
8. 



I STARTING VALUE OF BLOCK SIZE 

iCHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 

lEXTFEA EXTRA WORD 

i SPACE 

(MESSAGE BUFFER 



TEST DATA FOR SUBTEST TUG 
DATA HAS FORMAT: 



1ST WORD 
2ND UORD 



OFFSET TO TEST UORD IN PACKET 
BITS TO SET FOR TEST 



T72DATA: 

.WORD 
.WORD 
.WORD 
T72D0NE-. 



0.BIT5!BIT6!BIT9!BIT10!BIT11!BIT12!BIT13 
2.BIT0 

4.BIT6!BIT15 



I • 

iLOCAl 
t - 

T72NBA: 

T7NBA: 

T72REJ: 

T73REJ: 

T74REJ: 

T75REJ: 

T7SSR: 

T7NINT : 

T7INT: 

T7TSBA: 

TST7ID: 



I* 



TEXT MESSAGES FOR TEST 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



NBA Net S«t On R«J«ct«d URITE CHARACTERISTICS' 
URITE CHARACTERISTICS Command Net Accepted' 

URITE CHARACTERISTICS Net Rejected Uith Non-Zero Unueed Fields' 
'WRITE CHARACTERISTICS Not Rejected u;th Invelid Date Count' 
'URITE CHARACTERISTICS Not Related Ulth Invalid Block Address' 

URITE CHARACTERISTICS Not RejMted Uith Invalid Buffer Length* 

Contente of TSSR Incorrect After URITE CHARACTERISTICS' 
■Expected Interrupt Net Received On URITE CHARACTERISTICS' 

Unexpected Interrupt Received On URITE CHARACTERISTICS' 
'Incorrect TS8A Address After URITE CHARACTERISTICS' 
'Urite Cheracteristics' 



{ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
i 

I - 

T7REST; 



012701 032700* 



SAVREG 
MOV 



«T7PACKET.R1 



I SAVE THE REGISTERS 
I START OF THE PACKET 



KIO 



TSV5A - 
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TEST 7 


. URITE 


CHARACTERISTICS 








1744 


034072 






nov 


«100004.(R1)* 


lURITE CHARACTERISTICS WITH ACK 


1745 


034076 






nov 


♦T7DATA.CRI)* 


1 ADDRESS OF CHAR DATA BLOCK 


1746 


034102 






CLR 


CR1)» 


1 EXTENDED ADDRESS 


1747 


034104 






nov 


*8. .(Rl)» 


iSIZE OF DATA BLOCK IN BYTES 


1748 


034110 






nov 


♦T7BFR,(Rl)^ 


1 ADDRESS OF HESSAGE BUFFER 


1749 


034114 


005021 




CLR 


CR1)» 




1750 


034116 


012721 


000020 


nov 


«16. .CRD* 


1 LENGTH OF HESSAGE BUFFER 


1751 


034122 


005021 




CLR 


CRD* 




1752 


034124 


005011 




CLR 


CRD 




1755 


034126 


000207 




RTS 


PC 


(RETURN 


1754 


034130 






ENOTST 








034130 










L 10055: 




034130 


104401 











SEQ 127 



1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 

1796 
1797 
1798 
1799 
1800 
1801 



TRAP 



C»ETST 



034132 
034132 
034132 
034136 
034142 
034150 



.SBTTL TEST 8: VOLUME CHECK 



THIS TEST VERIFIES THAT THE VOLUME CHECK CVCK) BIT. A FLAG HELD 
UITHIN THE M7455 AND APPEARING IN XSTO, IS SET BY INITIALIZE AND 
CLEARED BY EXECUTING A URITE CHARACTERISTICS COMMAND WITH THE 
CVC BIT SET. IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS 
COnnAND WITH THE CVC BIT CLEAR DOES NOT AFFECT THE STATE OF THE 
VOLUHE CHECK BIT. THE ACTUAL FUNCTION OF VOLUHE CHECK. THAT OF 
PREVENTING OR ALLOWING A TAPE HOTION COHHAND DEPENDINH UPON 
WHETHER VOLUHE CHECK IS SET OR CLEAR. IS NOT CHECKED BY THIS 
TESTi THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF 
TAPE nOTION COMMANDS. 

THE TEST PROCEEDS AS FOLLOWS: 

1. THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR. 

2. A WRITE CHARACTERISTICS COMMAND IS ISSUED (WITH CVC-0) 
AND XSTO IN THE RETURNED MESSAGE BUFFER IS EXAMINED: 
THE VCK BIT SHOULD BE CLEAR (0). 



3. THE PREVIOUS STEP IS REPEATED TO VERIFY 
NOT CHANGE CREMAINS AT 0). 



THAT VCK DOES 



A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC-1 
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAniNEDi THE VCK BIT SHOULD BE CLEAR CO). 

A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC-0 
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAMINED I THE VCK BIT SHOULD REMAIN CLEAR CO). 



012700 035017- 
004737 016322' 
012737 000024 002214' 



T8L00P: 



034150 012704 034540' 



BGNTST 

nov 

JSR 

nov 



nov 



♦TST8ID.R0 

PC.TSTSETUP 

♦2O..L00PCNT 



*T8PACKET,R4 



T8:: 

I ASCII MESSAGE TO IDENTIFY TEST 
iOO INITIAL TEST SETUP 
iPERFORn 20 ITERATIONS 



{PACKET FOR WRITE CHARACTERISTICS 



LIO 



TSV5A - 
TEST 0; 

1602 
1803 
1007 
1806 



HAROUARE TESTS 
VOLUME CHECK 



MACRO MXllS 07 FEB-64 10;58 



1809 
1810 
1811 
1812 
1813 
1817 



1818 
1819 



1820 
1821 
1822 
1626 
1627 



1628 

1629 
1630 
1631 
1832 
1836 



1637 
1836 



1839 
1640 
1844 
1645 



1846 



034154 
034160 
034162 
034164 
034164 
034166 
034170 
034172 
034174 
034200 
034204 
034210 
034212 
034214 
034214 
034216 
034220 
034222 
034224 
034224 
034226 
034226 
034230 
034232 
034236 
034244 
034246 
034252 
034252 
034254 
034256 
034260 
034262 
034262 
034264 
034270 
034274 
034276 
034300 
034300 
034302 
034304 
034306 
034310 
034310 
034312 
034312 
034314 
034316 
034324 
034326 
034332 
034332 
034334 
034336 
034340 
034342 



004737 015604' 

103405 

010001 

104455 
001441 
003644' 
011644' 

042714 040000 
010465 000000 
004737 016146' 
103405 
010001 

104455 
001442 
034730' 
011656' 

104406 

104410 
000604 

012702 034562* 
032762 000020 000006 
001406 

016501 000002 

104456 
001443 
034637' 
011720' 

104406 

010465 000000 
004737 016146' 
103405 

010001 

104455 
001444 
034730' 
011656' 

104406 

104410 

000520 

032762 000020 000006 
001406 

016501 000002 

104456 
001445 
034637* 
011720* 



5»: 



lot: 



15$: 



20t; 



2St: 



30S: 



JSR 
BCS 
MOV 
ERRDF 



BIC 
MOV 
JSR 
BCS 
MOV 
ERRDF 



CKLOOP 
ESCAPE 



MOV 
BIT 
BEQ 
MOV 

ERRHRD 



CKLOOP 

MOV 
JSR 
BCS 
MOV 
ERROF 



CKLOOP 
ESCAPE 



BIT 
BEQ 
MOV 

ERRHRD 



CKLOOP 



PC.SOFINIT 

10< 

RO.Rl 

ERRNO . SF lERR . SF IMSG 



•BIT14.(R4) 

R4.TSDB(R5) 

PC.CHKTSSR 

151 

RO.Rl 

ERRNO. T8SSR.PKTSSR 



TST 



•T8BFR.R2 

•XS0VCK.XST0(R2) 

20» 

TSSRCR5).R1 

ERRNO. T8NVCK .PKTMES 



R4.TS0B(R5) 
PC.CHKTSSR 
25» 
RO.Rl 

ERRNO. T8SSR.PKTSSR 



TST 



•XS0VCK.XST0(R2) 
30t 

TSSR(R5).R1 

ERRNO . T8NVCK . PK TMES 



SEQ 128 



I DO SOFT INIT OF CONTROLLER 

I BR IF SOFT INIT • OK 

I SAVE CONTENTS OF TSSP 

I DEVICE FATAL ERROR DURING INIT 

TRAP C<ERDF 
.WORD 601 
.WORD SFIERR 
.UORD SFIMSG 

I CLEAR THE CVC BIT 

I SET THE PACKET ADDRESS FOR URITE CHAR 

lUAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

iSAVE CONTENTS OF TSSR 

iDEVxCE FATAL SSR FAILED TO SET 

TRAP CIEROF 
.WORD 602 
.WORD T8SSR 
.WORD PKTSSR 

I LOOP ON ERROR. IF FLAG SET 



TRAP 



CICLPl 



C« ESC APE 
L10064-. 



CIERHRO 
803 
T8NVCK 
PKTMES 

C»CLPl 



(EXIT IF FATAL ERROR 

TRAP 
.WORD 

(ADDRESS OF THE MESSAGE BUFFER 
ilS VOLUME CHECK SET IN XSTO ? 
tOKAY IF VOLUME CHECK IS CLEAR 
(CONTENTS OF TSSR FOR ERROR REPORT 
(VOLUME CHECK NOT CLEAR 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP ON ERROR ? 

TRAP 

(SET THE PACKET ADDRESS FOR WRITE CHAR 

(WAIT FOR SSR TO SET 

(BR IF CARRY SET (GOOD RETURN) 

(SAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP C*ERDF 
.WORD 804 
.WORD T8SSR 
.WORD PKTSSR 

(LOOP ON ERROR. IF FLAG SET 

TRAP 

(EXIT IF FATAL ERROR 

TRAP 
.WORD 

(IS VOLUME CHECK SET IN XSTO ? 
(OKAY IF VOLUME CHECK IS SET 
(CONTENTS OF TSSR FOR ERROR REPORT 
(VOLUME CHECK NOT SET 

TRAP OERHRD 
.WORD 805 
.WORD T8NVCK 
.WORD PKTMES 

(LOOP ON ERROR ? 



C»CLP1 

C«ESCAPE 
L10064-. 



MIO 



TSV5A - 
TEST 8 


HAROWAf 

! vocuS 


(E TESTS 
■CHECK 


MACRO HI 113 07 


-FEB -64 


10:58 






SEQ 129 




034342 


104406 












TRAP 


C»CLP1 


1847 


034344 


052714 


040000 






BIS 


«eiT14.CR4) 


iSET THE CVC BIT 


1648 


034350 


010465 


000000 






NOV 


R4.TS0B(R5) 


tSET THE PACKET ADDRESS FOR WRITE CHAR 


1649 


034354 


004737 


016146' 






JSR 


PC.CHKTSSR 


lUAIT FOR SSR TO SET 




1850 


034360 


103405 








BCS 


35$ 


iBR IF CARRY SET (GOOD RETURN) 




1851 


034362 


010001 








MOV 


RO.Rl 


iSAVE CONTENTS OF TSSR 




1655 


034364 










ERROF 


ERRN0.T8SSR.PKTSSR 


(DEVICE FATAL SSR FAILED TO SET 






034364 


104455 












TRAP 


CiERDF 




034366 


001446 












.WORD 


806 




034370 


034730' 












.WORD 


T8SSR 




034372 


011656' 












.WORD 


PKTSSR 


1656 


034374 








35f : 


CKLOQP 




iLOOP ON ERROR. IF FLAG SET 






034374 


104406 












TRAP 


C$CLP1 


1857 


034376 










ESCAPE 


TST 


lEXIT IF FATAL ERROR 






034376 


104410 












TRAP 


CiESCAPE 




034400 


000434 












.UORD 


L10064-. 


1658 


034402 


032762 








BIT 


«XS0VCK,XST0(R2) 


lis VOLUME CHECK CLEAR IN XSTO 


? 


1659 


034410 


001406 








BEQ 


40$ 


lOKAY IF VOLUME CHECK IS CLEARED 


1663 


034412 


016501 








nov 


TSSR(R5),R1 


(CONTENTS OF TSSR FOR ERROR REPORT 


1664 


034416 










ERRHRO 


ERRN0.T8VCK,PKTHES 


(VOLUME CHECK NOT CLEARED 






034416 


104456 












TRAP 


C$ERHRD 




034420 


001447 












.UORD 


807 




034422 


034602' 












.WORD 


T8VCK 




034424 


011720' 












.UORD 


PKTNES 


1865 


034426 








40«: 


CKLOOP 




(LOOP ON ERROR ? 






034426 


104406 












TRAP 


C$CLP1 




034430 


042714 


040000 






BIC 


•BIT14.CR4) 


(CLEAR THE CVC BIT 




1667 


034434 


010465 


OOOOUO 






nov 


R4.TS0B(R5) 


(SET THE PACKET ADDRESS FOR URITE CHAR 


1868 


034440 


004737 


016146' 






JSR 


PC.CHKTSSR 


(UAIT FOR SSR TO SET 




1869 


034444 


103405 








BCS 


45$ 


(BR IF CARRY SET (GOOD RETURN) 




1670 


034446 


010001 








MOV 


RO.Rl 


(SAVE CONTENTS OF TSSR 




1674 


034450 










ERROF 


ERRNO . T8SSR , PKTSSR 


(DEVICE FATAL SSR FAILED TO SET 






034450 


104455 










TRAP 


C$ER0F 




034452 


001450 












.UORD 


806 




034454 


034730' 












.UORD 


T8SSR 


1675 


034456 


011656' 












.UORD 


PKTSSR 


034460 








451: 


CKLOOP 




(LOOP ON ERROR. IF FLAG SET 






034460 


104406 












TRAP 


C$CLP1 


1876 


034462 










ESCAPE 


TST 


(EXIT IF FATAL ERROR 






034462 


104410 












TRAP 


C$ESCAPE 




034464 


000350 












.UORD 


L10064-. 


1877 


034466 


032762 


000020 


000006 




BIT 


MS0VCK.XST0CR2) 


(IS VOLUME CHECK CLEAR IN XSTO 


? 


1878 


034474 


001406 








BEQ 


50$ 


(OKAY IF VOLUME CHECK IS CLEARED 


1862 


034476 


016501 


000002 






NOV 


TSSRCR5).R1 


(CONTENTS OF TSSR FOR ERROR REPORT 


1883 


034502 










ERRHRO 


ERRNO . T8 VCK . PKTNES 


(VOLUME CHECK NOT CLEARED 






034502 


104456 










TRAP 


CIERHRO 




034504 


001451 












.WORD 


809 




034506 


034602' 


« 










.UORD 


T8VCK 




034510 


011720' 












.UORD 


PKTMES 


1884 


034512 








50$: 


CKLOOP 




(LOOP ON ERROR ? 






034512 


104406 












TRAP 


C$CLP1 


1865 


034514 


004737 


016270' 




601: 


JSR 


PC.TSTLOOP 


(SHOULD UE 00 ITERATIONS ? 




1886 


034520 


103002 








BCC 


621 


(BRANCH IF NOT 




1687 


034522 


000137 


034150' 






JNP 


T6L00P 


(LOOP UNTIL COUNT EXPIRED 




1668 


034526 








62$: 


EXIT 


TST 


(ALL DONE THIS TEST 






034526 


104432 












TRAP 


C»EXIT 




034530 


000304 












.UORD 


L10064-. 



NIO 



TSVSA - HARDWARE TESTS 
TEST 8: VOLUME CHECK 



MACRO M1113 07 FEB 84 10:58 



SEQ 130 



1 AAQ 






























i LOCAL 




















STORAGE 


FOR THIS TEST 
















s 






























1 AOS 












.BLKB 


10-< -TSV2£7> 






1897 










T8PACKET2 






t COMMAND PACKET FOR TE^T 




0S4540 










.WORD 


100004 




t WRITE CHARACTERISTICS COMMAND 






034550' 








.WORD 


T8DATA 




I ADDRESS OF CHARACTERISTICS BLOCK 


1900 


0S4544 


oooooo 

www 








.WORD 


0 






1901 


034546 


OOOOlO 

WW A V 








.WORD 


10 




i STARTING VALUE OF COUNTER 


1902 




















190S 


0S4550 








T80ATA: 








: CHARACTERISTICS DATA BLOCK 


1904 


034550 


034562' 








.WORD 


T8BFR 




1 ADDRESS OF MESSAGE BUFFER 


1905 


034552 


OOOOOO 

WWW 








.WORD 


0 






1906 


034554 


000020 

WWC V 








.WORD 


16. 




t LENGTH OF MESSAGE BUFFER 


1907 


034556 


oooooo 

www 


OOOOOO 






.WORD 


0.0 






1908 




















1909 


034562 








T8eFR: 


.BLKU 


8. 




i MESSAGE BUFFER 


1910 

Ai TAW 




















1911 

A 7 A A 




















1912 










i LOCAL 










1913 










TEXT MESSAGES FOR TEST 






1914 










s ■ 










1915 




















1916 


0346C2 


126 


157 


154 


T8VCK: 


.ASCIZ 


'Volume Ch«ck 


Bit 


Not Cleared' 


1917 


034637 


126 


157 


154 


T8NVCK: 


.ASCIZ 


'Volume Check 


Bit 


(VCK) Not Clear After Initialize (XSTO) 


1918 


034730 


103 


157 


156 


T8SSR: 


•ASCIZ 


'Contents of 


TSSR 


Incorrect After Write Characteristics' 


1919 


035017 


126 


157 


154 


TST8ID: 


.ASCIZ 


'Volume Check 


1 




1920 












.EVEN 








1921 


035034 










ENOTST 









1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 

1947 
1948 



035034 
035034 



104401 



L10064: 



TRAP 



CIETST 



.SBTTL TEST 9: COMPLETION INTERRUPT 



THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE 
COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT 
ENABLE (IE) BIT IN THE COMMAND HEADER WORD IS SET. THIS TEST 
CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC 
PROCESSING OF THE IE BIT. 

THE SEQUENCES OF TEST 7 ARE REPEATED. EXCEPT THAT THE INTERRUPT 
SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE 
CHARACTERISTICS COMMAND IS ISSUED WITH THE IE BIT SET CI). IT 
IS VERIFIED. WHERE APPROPRIATE. THAT THE IE STATUS BIT IN XSTO 
OF ANY MESSAGE PACKET IS SET AND THAT A COMPLETION INTERRUPT IS 
GENERATED. FINALLY. A SEQUENCE OF TWO COMMANDS ARE ISSUED. THE 
FIRST WITH IE-1 AND THE SECOND WITH IE-0. IT IS VERIFIED THAT 
NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND AND THAT THE 
IE BIT IN XSTO IS 0. 



035036 
035036 
035036 
035042 



005037 002224' 
012700 040061' 



BGNTST 

CLR 
MOV 



EXTFEA 
♦TST9ID.ro 



T9- ■ 

t CLEAR EXTENDED FEATURES SWITCH 
I ASCII MESSAGE TO IDENTIFY TEST 



Bll 

rSvSA ■ HMKMMIC TESTS MACRO MHIS 07 FEB 84 10:58 
TEST 9: COMPLETION INTERRUPT 



1949 0S5046 


004757 


016322' 






JSR 


PC.TSTSETUP 


1950 0SS052 


012757 


000024 


002214' 




MOV 


•20. .LOOPCNT 


1951 0SS060 








T9L00P: 






1952 0SS060 










BGNSUB 




0S5060 














0S5060 


104402 












1955 














1954 035062 


004757 


040106' 






JSR 


PC,T9REST 


1955 035066 










SETPRI 


•PftlOO 


035066 


012700 


000000 










035072 


104441 












1956 035074 


012705 


002762' 






MOV 


•TSTBLK.10..R5 


1957 035100 


012704 


037010' 






MOV 


•T9PACKET.R4 


1958 035104 


012764 


000010 


000006 




NOV 


#8..PKaCNT(R4) 


1959 035112 








51: 






1960 035112 










BGNSEG 




035112 


104404 












1961 














1962 035114 


004757 


015604' 






JSR 


PC.SOFINIT 


1963 035120 


103405 








BCS 


10 • 


1967 035122 


010001 








NOV 


RO.Rl 


1968 035124 










ERROF 


ERRNO , SF lERR . SF INSG 


035124 


104455 












035126 


001605 












035130 


005644' 












035132 


011644* 












1969 035154 


005057 


002220' 




10* : 


CLR 


FATFLG 


1970 055140 


005057 


002222' 






CLR 


INTRECV 


1971 055144 


010465 


000000 






NOV 


R4.TS0e(RS) 


1972 035150 


004757 


016146' 






JSR 


PC.CMKTSSR 


1975 055154 


105407 








BCS 


15t 


1974 055156 


010001 








NOV 


RO.Rl 


1978 055160 










ERROT 


ERRNO. T9SSR.PKTSSR 


055160 


104455 










055162 


001606 












055164 


057527- 












055166 


011656* 












1979 055170 


005257 


002220* 






INC 


FATFLG 


1980 055174 








1S»: 


CKLOOP 




055174 


104406 












1981 055176 










ESCAPE 


SEG 


035176 


104410 












055200 


000056 












1982 055202 


005757 


002222' 






TST 


INTRECV 


1985 055206 


001004 








BNE 


22« 


1967 055210 










ERRHRD 


ERRNO . T9NINT . PK TSSR 


055210 


104456 










055212 


001607 












055214 


057616' 












055216 


011656' 












1988 055220 


016501 


000002 




221: 


MOV 


TSSR(R5).R1 


1989 055224 


012702 


000200 






MOV 


•SSR.R2 


1990 055250 


032701 


000100 






BIT 


•OFL.Rl 


1991 055234 


001402 








BEQ 


25 « 


1992 055256 


052702 


000100 






BIS 


•0FL.R2 


1995 055242 


020201 






25t: 


CMP 


R2.R1 


1994 055244 


001404 








BcQ 


SOI 



SEQ 131 



iDO INITIAL TEST SETUP 
iPERFORN 20 ITERATIONS 

I //////////// BEGIN SUBTEST //////////// 
T9.li 

TRAP C9BSUB 

I SET PACKET TO INITIAL VALUES 
iLOUER PRIORITY TO ALLOU INTERRUPTS 

MOV tPRIOO.RO 
TRAP CISPRI 

I START OF TEST DATA 

iGET T»C ADDRESS OF CONNAND PACKET 

I START WITH NINIMUn ALLQUABLE VALUE 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CtBSEG 

I 00 SOFT INIT OF CONTROLLER 

iBP IF SOFT INIT • OK 

I SAVE CONTENTS OF TSSR 

t DEVICE FATAL ERROR DURING INIT 

TRAP CtEROF 
.UORD 901 
.WORD SFIERR 
.V4QRD SFinSG 

I CLEAR FATAL ERROR FLAG 

(CLEAR INTERRUPT RECEIVED FLAG 

I SET THE PACKET ADDRESS 

iWAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

I SAVE CONTENTS OF TSSR 

lOEVlCE FATAL SSR FAILED TO SET 

TRAP CIERDF 
.WORD 902 
.WORD T9SSR 
.UORD PKTSSR 

iSET FATAL ERROR FLAG 

iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

iBY-PASS SUBTEST IF FATAL ERROR 

TRAP C IE SCAPE 
.WORD 10000I-. 

I DID AN INTERRUPT OCCUR 7 

(BRANCH IF YES 

TRAP CIERHRD 
.WORD 903 
.UORD T9NINT 
.yORD PKTSSR 

iGET THE CONTENTS OF TSSP 

(EXPECTED CONTENTS OF TSSR 

(IS OFF-LINE BIT SET ? 

(BRANCH IF NOT OFF-LINE 

(SET OFF-LINE IN EXPECTED DATA 

(DOES EXPECTED MATCH RECEIVED ? 

(OKAY IF HATCH 



TSV5A 
TEST 



9: 
1996 



Cll 



1999 

2000 



2001 
2002 
2003 
2004 
2005 
2006 
2007 



2006 
2009 
2010 
2011 
2012 
2013 
2014 
201!> 
2016 
2017 
2016 
2019 
2020 
2021 
2022 
2023 
2024 
2025 



035246 
035246 
035250 
035252 
035254 
035256 
035256 
035256 
035256 

035260 
035264 
035270 
035272 

035276 
035276 
0S5276 

035300 
035304 
035306 
035312 
035320 
035322 
035326 



104456 
001610 
037066' 
011656' 



104405 



30*: 



012364 000006 

020327 003060' 
103002 

000137 035112' 



104403 

005737 002220* 
001402 

004737 017014' 
033727 037044* 000200 
001402 

005237 002224* 



551: 



ERRHRO ERRN0.T9NBA.PKTSSR 



ENOSEG 



MOV (R3)*.PKBCNTCR4) 

CnP R3.4TBLEND 

BHIS 5S« 

jnp SI 

ENOSUB 



TST FMTFLC 

BEQ 60* 

JSR PC.CKOROP 

BIT T9BFR*12.«BIT7 

BEQ 70* 

ZNC EXTFEA 



I NBA NOT ZERO 



TRAP 

. ypRO 
.yoRO 

.MORO 



SEO il2 



CfERHRO 

904 

T9NBA 

PKTSSR 



60t: 

701: 
!♦ 

!tEST 9. SUBTEST 2 

!CHECK THAT UNUSED BITS BEING SET CAUSES 
lURITE CHARACTERISTICS COWIAND TO BE REJECTED 
I 

I - 



!<<<<<<<<<<<<< END SEGMENT <<<<<<<«<<<<< 
100001: 

TRAP CIESEG 

I SET THE TEST WORD 
iHAS ALL DATA BEEN TESTED 7 
{BRANCH IF ALL DATA DONE 
(BRANCH TILL BACK TO ZERO 

END SUBTEST \\\\\\\\\\\» \ 
L10066: 

TRAP OESUB 

(ANY FATAL ERRORS ? 
I BRANCH IF NOT 
iTRT TO DROP THE UNIT 
(EXTENDED FEATURES SET? 
iBR IF NO 

I SET EXT FEATURE FLAG 



2026 035326 






BGNSUB 


035326 








035326 


104402 






2027 








2026 035330 






SETPftI 


035330 


012700 


000000 




035334 


104441 






2029 035336 


012703 


037052* 


HOV 


2030 C35342 


012704 


037010' 


5*: NOV 


2031 035346 


004737 


040106' 


JSR 


2032 






2035 035352 






BGNSEG 


035352 


104404 






2034 








2035 035354 


004737 


015604' 


JSR 


2036 035360 


103405 




BCS 


2040 035362 


010001 




HOV 


2041 035364 






ERRDF 


035364 


104455 






035366 


001611 






035370 


003644' 







4PRI00 



•T92DATA.R3 
•T9PACKET.R4 

PC.T9REST 



PC.SOFINIT 

10* 

RO.Rl 

ERRNO . SF lERR . SF IHSG 



|//////////// BEGIN SUBTEST //////////// 
T9 2: 

TRAP C*BSUB 

iLOUER PRIORITY TO ALLOW INTERRUPTS 

HOV tPRIOCRO 
TRAP CISPRI 
(START OF TEST DATA FOR SUBTEST 
I GET THE ADDRESS OF COMMAND PACKET 
(RESTORE PACKET TO STARTING VALUES 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>■>> 

TRAP CtBSEG 

(DO SOFT INIT OF CONTROLLER 

(BR IF SOFT INIT - OK 

(SAVE CONTENTS OF TSSR 

(DEVICE FATAL ERROR DURING INIT 

TR#W> C»ERDF 
.WORD 905 
.WORD SFIERR 



Dli 





035372 


01 1644 ' 








.WORD 


SFIMSC 


2042 


035374 


005037 


AA^ ■ 

002222' 


10$ : CLR 


INTRECV 


1 CLEAR INTERRUPT RECEIVED FLAG 


2043 


035400 


010400 




MOV 


R4,R0 


1 START or THE COMMAND PACKET 




2044 


035402 


061300 




ADO 


(R3).R0 


•OFFSET TO THE DATA WORD TO TEST 


2045 


035404 


056310 


000002 


BIS 


2(R3),(R0) 


iSET THE DATA BITS TO BE TESTED 




2046 


035410 


010465 


000000 


MOV 


R4,TSD8(R5) 


iSET THE PACKET ADDRESS 




2047 


035414 


004737 


016060' 


JSR 


PC.UAITP 


lUAIT FOR SSR TO SET 




2048 


035420 


103405 




6CS 


15* 


iBR IF CARRY SET (GOOD RETURN) 




2049 


035422 


010001 




MOV 


RO.Rl 


iSAVE CONTENTS OF TSSR 




20S5 


035424 






ERRDF 


ERRNO . T9SSR , PK T SSR 


•DEVICE FATAL SSR FAILED TO SET 






035424 


104455 








TRAP 


C$EPDF 




035426 


001612 








.WORD 


906 




035430 


037527' 








.WORD 


T9SSR 




035432 


011656' 








.WORD 


PKTSSR 


2054 


035434 






15$ : CKLOOP 




(LOOP ON ERROR. IF FLAG SET 






035434 


A AA A A^ 

104406 








TRAP 


C$CLP1 


2055 


035436 






FSCWE 


SEG 


iBY-PASS CHECKS IF FATAL ERROR 






035436 


104410 








TRAP 


C$ESCAPE 




035440 


000056 








.UORD 


10000$-. 


2056 


0S5442 


005737 


002222' 


TST 


INTRECV 


lOID AN INTERRUPT OCCUR ? 




2057 


035446 


001004 




BNE 


221 


1 BRANCH IF YES 




2061 


035450 






ERnHRD 


ERRNO, T9NINT tPKTSSR 








035450 


104456 








TRAP 


C$ERHR0 




035452 


001613 








.WORD 


907 




035454 


037616' 








.WORD 


T9NINT 




035456 


011656' 








.WORD 


PKTSSR 


2062 


035460 


016501 


000002 


221: MOV 


V^f*A^ AK X Aa 

TSSR(R5).Rl 


jGET THE CONTENTS OF TSSR 




2063 


035464 


012702 


102206 


MOV 


•SC ! SSR ! T SRE J ! NBA , R2 


1 EXPECTED CONTENTS OF TSSR 




2064 


035470 


0S2701 


000100 


BIT 


•OFL.Rl 


lis OFF-LINE BIT SET ? 




2065 


035474 


001402 




BEQ 


251 


iBRANCH IF NOT OFF-LINE 




2066 


035476 


052702 


000100 


BIS 


•0rL.R2 


iSET OFF-LINE IN EXPECTED DATA 




2067 


035502 


020201 




251 : CMP 


R2,R1 


iDOES EXPECTED MATCH RECEIVED ? 




2060 


035504 


001404 




BEQ 


S0< 


lOKAY IF MATCH 




2072 


035506 






ERRHRD 


ERRNO, T92REJ.PKTSSR 


i COMMAND NOT REJECTED 






035506 


104456 








TRAP 


C$ER»«D 




035510 


001614 








.WORD 


906 




035512 


037141' 








.WORD 


T92REJ 




035514 


011656' 








.WORD 


PKTSSR 


2073 


035516 






30t: 








2074 


035516 






ENOSEG 




!<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 




035516 










10000$: 






035516 


104405 








TRAP 


C$ESEG 


2075 
















2076 


035520 


062703 


000004 


ADD 


♦4,R3 


1 POINT TO NEXT DATA PAIR 




2077 


035524 


020327 


037066' 


CMP 


R3.4T92D0NE 


1 COMPARE TO END OF TEST DATA 




2078 


035530 


103002 




BHXS 


59$ 


1 BRANCH IF ALL DATA TESTED 




2079 


0355S2 


000137 


035342' 


JMP 


5$ 


1 BRANCH TILL BACK TO ZERO 




















2081 


035536 






59t: ENOSUB 




END SUBTEST xWWWWWW 




035536 










L 10067: 






035536 


104403 








TRAP 


C$ESUB 


2062 
















206S 








i ♦ 








2084 








1 








2085 








iTEST 9. SUBTEST 3 






2086 








: 








2087 








iCHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED 





rSvSA • MMtOlMRE TESTS MACRO MHIS 
TEST 9: CO»fl>LETION INTERRUPT 



2060 
2089 

2090 
2091 
2092 



2093 
2094 



2095 
2096 
2097 
2096 
2099 

2100 
2101 
2102 
2106 
2107 



2106 
2109 
2110 
2111 
2112 
2113 
2117 



2116 
2119 



2120 
2121 
2125 



2126 
2127 
2126 
2129 
2130 
2131 
2132 
2136 



035540 
035540 
035540 

055542 
035542 
035546 
035550 
035554 
035560 

035564 
035564 

035566 
035572 
035574 
035576 
035576 
035600 
035602 
035604 
035606 
035612 
035616 
035622 
035626 
035630 
035632 
035632 
035634 
035636 
035640 
035642 
035642 
035644 
035644 
035646 
035650 
035654 
035656 
035656 
035660 
035662 
035664 
035666 
035672 
035676 
035702 
035704 
035710 
035712 
035714 



104402 



012700 000000 
104441 

012703 000001 

012704 037010' 
004737 040106' 



104404 

004737 
103405 
010001 

104455 

001615 

003644' 

011644' 

005037 

010364 

010465 

004737 

103405 

010001 

104455 
001616 
037527* 
011656' 

104406 

104410 
000056 
005737 
001004 

104456 

001617 

037616' 

011656' 

016501 

012702 

032701 

001402 

052702 

020201 

001404 



015604' 



002222' 
000006 
000000 
016060' 



002222* 



000002 
102206 
000100 

000100 



FEB 84 10:56 



Ell 



SEQ 134 



I IF ISSUED WITH AN INVALID DATA BLOCK BYTE COUNT 



I 

i - 



it: 



lOt: 



15t: 



221: 



251: 



BGNSUB 



SETPRI tPRIOO 



MOV ♦l.RS 

MOV •T9PACKET,R4 

JSR PC.T9REST 

BGNSEG 



JSR PC.SOFINIT 

BCS 101 

HOV RO.Rl 

ERRDF ERRNO.SFIERR.SFIMSG 



CLR INTRECV 

nOV R3.PKBCNTCR4) 

MOV R4.TSDBCRS) 

JSR PC.MAITF 

BCS 15* 

nOV RO.Rl 

ERROF ERRND.T9SSR.PKTSSR 



CKLOOP 
ESCAPE SEG 



TST INTRECV 
BNE 221 

ERRHRO ERRN0.T9NINT.PKTSSR 



NOV TSSR(R5).R1 

NOV #SC!SSR!TSREJ!NBA.R2 

BIT MFL.Rl 

BEQ 25* 

BIS «0FL.R2 

CHP R2.R1 

BEQ 30 < 

ERRHRD ERRN0.T93REJ.rKTSSR 



BEGIN SUBTEST //////////// 
T9.35 

TRAP CIBSUB 

iLOUER PRIORITY TO ALLOW INTERRUPTS 

nOV «PRIOO.RO 
TRAP CISPRI 

i STARTING BYTE COUNT 

iGET THE ADDRESS OF COHHAND PACKET 

iRESTORE PACKET TO STARTING VALUES 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>»>> 

TRAP CIBSEG 



I 00 SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT • OK 

tSAVE CONTENTS OF TSSR 

iDEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

t CLEAR INTERRUPT RECEIVED FLAG 

I INSERT THE BYTE COUNT FOR TEST 

;SET THE PACKET ADDRESS 

tUAIT FOR SSR TO SET 

I BR IF CARRY SET CGOOD RETURN) 

iSAVE CONTENTS OF TSSR 

•DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP ON ERROR. IF FLAG SET 

TRAP 

iBY-PASS SUBTEST IF FATAL ERROR 

TRAP 
.UORD 

tOIO AN INTERRUPT OCCUR ? 
t BRANCH IF YES 



C«ERDF 
909 
SFIERR 
SFIHSG 



TRAP 
.WORD 
.WORD 
.WORD 

iGET THE CONTENTS OF TSSR 

t EXPECTED CONTENTS OF TSSR 

lis OFF-LINE BIT SET ? 

(BRANCH IF NOT OFF-LINE 

J SET OFF-LINE IN EXPECTED DATA 

iDOES EXPECTED HATCH RECEIVED 1 

I OKAY IF HATCH 

I COHHAND NOT REJECTED 



CIEROF 
910 
T9SSR 
PKTSSR 

C»CLPl 

C (ESCAPE 
100001 -. 



CtERHRO 
911 
T9NINT 
PKTSSR 



TSVSA - HARDWARE TESTS 
TEST 9 



jwcRO miis 

COMPt.ETION INTEFMHJPT 



07FEB-84 10:58 



Fll 



SEO 155 



2137 
2138 



2139 
2140 
2141 
2142 
2143 
2144 
2145 



2146 
2147 
2148 
2149 

2150 
2151 
2152 
2153 
2154 
2155 
2156 



2157 
2158 



2159 
2160 
2161 
2162 
2163 
2164 
2165 
2169 
2170 



2171 
2172 
2173 
2174 
2175 
2176 
2180 



035714 
035716 
035720 
035722 
035724 
035724 
035724 
035724 

035726 
035730 
035734 
035736 

035742 
055742 
035742 



035744 
035744 
035744 

035746 
035746 
035752 
035754 
035760 
035764 



035770 
035774 
035776 
036000 
036000 
036002 
036004 
036006 
036010 
036014 
036022 
036026 
036C32 
036034 
036036 
036036 
036040 
036042 



104456 
001620 
037240' 
011656' 



104405 



30t: 



TRAP 
.WORD 
.WORD 
.UGRO 



C*ERHRO 
912 
T9SREJ 
PKTSSR 



005203 

020327 000006 
002002 

000137 035554' 



104403 



59t: 



t ♦ 



ENOSEG 



INC 
CMP 
BGE 
JMP 

E^40SUB 



R3 

R3.«6 

59$ 

5* 



!<<<<<<<<<<<<« END SEGMENT <<<<<<<<<<<<< 
10000»: 

TRAP CIESEG 

iNEXT BYTE COUNT 

i TESTED ALL INVALID ? 

I BRANCH IF TEST DONE 

I BRANCH TILL BACK TO ZERO 

END SUBTEST \\\\\\\\\\\\\ 
L10070: 

TRAP CiESUB 



I TEST 9. SUBTEST 4 

ISUBTEST TO VERIFY THAT A URITE CHARACTERISTICS COMMAND IS 
(REJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED. 
I 

t - 



104402 



012700 000000 
104441 

012703 037052* 

012704 037010' 
004737 040106' 



004737 015604* 

103405 

010001 

104455 
001621 
003644' 
011644' 

005037 002222' 

052737 000001 037020' 

010465 000000 

004737 016060' 

103405 

010001 

104455 

001622 
037527' 



BGNSUB 



SETPRI tfPRIOO 



MOV *T920ATA.R3 
51: MOV •T9PACKET.R4 

JSR PC.T9REST 



JSR PC.SOFINIT 

BCS 101 

MOV RO.Rl 

ERRDF ERRNO.SFIERR.SFIMSG 



lot: CLR INTRECV 

BIS *1.T9DATA 

MOV R4.TSD6(R5) 

JSR PC.WAITF 

BCS 151 

MOV RO.Rl 

ERRDF ERRN0.T9SSR. PKTSSR 



BEGIN SUBTEST //////////// 
T9.4: 

TRAP CIBSUB 

iLOUER PRIORITY TO ALLOU INTERRUPTS 

MOV 4PRI00.ro 
TRAP CtSPRI 
iSTART OF TEST DATA FOR SUBTEST 
iGET THE ADDRESS OF COMMAND PACKET 
{RESTORE PACKET TO STARTING VALUES 



tDO SOFT INIT OF CONTROLLER 

tBR IF SOFT INIT - OK 

I SAVE CONTENTS OF TSSR 

(DEVICE FATAL ERROR DURING INIT 

TRAP CtERDF 
.WORD 913 
.WORD SFIERR 
.MORD SFIMSG 

(CLEAR INTERRUPT RECEIVED FLAG 

(MAKE ADDRESS ODD 

(SET THE PACKET ADDRESS 

(WAIT FOR SSR TO SET 

iBR IF CARRY SET CGOOD RETURN) 

(SAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 
.WORD 914 
.WORD T9SSR 



TSV5A HAROyARE TESTS ^tACRQ mi 
TEST 9: COMPLETION INTERRUPT 

0S6O44 011656' 

2181 036046 
0S6046 104406 

2182 036050 
036050 104410 
036052 000056 

2185 036054 005737 002222' 

2184 036060 001004 

2188 036062 
036062 104456 
036064 001623 
036066 037616' 
036070 011656' 

2189 03607? 016301 000002 

2190 036076 012702 102206 

2191 036102 032701 000100 

2192 036106 001402 

2193 036110 052702 000100 

2194 036114 020201 

2195 036116 001404 

2199 036120 
036120 104456 
036122 001624 
036124 037333' 
036126 011656' 

2200 0S61S0 
2201 

2202 036130 
036130 

036130 104403 

2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 

2214 036132 
036132 

0S61S2 104402 

2215 

2216 036134 

036134 012700 000000 
036140 104441 

2217 036142 012703 000001 

2218 036146 012704 037010' 

2219 036152 004737 040106' 
2220 

2221 036156 

036156 104404 

2223 036160 004737 015604' 

2224 036164 103405 



7 FEB -84 10:58 



Gil 



SEQ 156 



15*1 



221: 



251 1 



sot: 



CKLOOP 
ESCAPE SUB 



TST INTRECV 
BNE 22* 

ERRHRD ERRNO . T9NINT .PKTSSR 



nov 
nov 

BIT 
BEQ 
BIS 
CMP 

BEQ ^ 
ERRHRO 



ENOSUB 



TSSR(R5).R1 

•SC • SSR ! TSRE J !NBA .R2 

•OFL.Rl 

25 1 

#0rL.R2 

R2,R1 

30« 

ERRNO. T94REJ. PKTSSR 



HORO PKTSSR 

(LOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 

iBT-PASS SUBTEST IF FATAL ERROR 

TRAP CIESCAPC 
.WORD L10071-. 

I DID AN INTERRUPT OCCUR ? 

(BRANCH IF YES 

TRAP C*ER»«0 
.UORO 915 
. WORD T9NINT 
.WORD PKTSSR 

tGET THE CONTENTS OF TSSR 

{EXPECTED CONTENTS OF TSSR 

lis OFF-LINE BIT SET ? 

iBRPMCH IF NOT OFF-LINE 

I SET OFF-LINE IN EXPECTED DATA 

I DOES EXPECTED MATCH RECEIVED ? 

J OKAY IF MATCH 

{COMMAND NOT REJECTED 

TRAP CIERHRO 
.UORO 916 
.WORD T94REJ 
.UORO PKTSSR 



END SUBTEST \\\\\\\\\\\\\ 
L10071: 

TRAP CIESUB 



I ♦ 

I TEST 9. SUBTEST 5 

» 

iCHECK THAT URITE CHARACTERISTICS COMMAND IS REJECTED IF THE 
tMESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14) 
( 

I - 



BGNSUB 



SETPRI «PRIOO 



5<: 



MOV 
MOV 
JSR 

BGNSEG 



JSR 
BCS 



*1.R3 

•T9PACKET.R4 

PC.T9REST 



PC.SOFINIT 
10 » 



»//////////// BEGIN SUBTEST //////////// 
T9.5: 

TRAP CIBSUB 

iLOUER PRIORITY TO ALLOW INTERRUPTS 

MOV •PRIOO.RO 
TRAP C9SPRI 

■STARTING BUFFER LENGTH 

tGET THE ADDRESS OF COMMAND PACKET 

{RESTORE PACKET TO STARTING VALUES 

)>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C<BSEG 

I DO SOFT INIT OF CONTROLLER 
iBR IF SOFT INIT - OK 



TSV5A - HARDWARE TESTS MACRO Ml 
TEST 9: COf«>LETION INTERRUPT 



2226 


036166 


010001 




2229 


036170 








036170 


104455 






036172 


001625 






036174 


003644' 






036176 


011644' 




2230 


036200 


005037 


002222' 


2231 


036204 


010337 


037024' 


2252 036210 


010465 


000000 


2233 


036214 


004737 


016060' 


2234 


036220 


103405 




2235 


036222 


010001 




2239 036224 








036224 


104455 






036226 


001626 






036230 


037527- 






036232 


011656' 




2240 


036234 








036234 


104406 




2241 


036236 








036236 


104410 






036240 


000056 




2242 


036242 


005737 


002222' 


2243 


036246 


001004 




2247 


036250 








036250 


104456 






036252 


001627 






036254 


037616' 






036256 


011656' 




2246 036260 


016501 


000002 


2249 036264 


012702 


102206 


2250 036270 


032701 


000100 


2251 


036274 


001402 




2252 


036276 


052702 


000100 


2253 


036302 


020201 




2254 


036304 


001404 




2256 


036306 








036306 


104456 






036310 


001630 






036312 


037431' 






036314 


011656' 




2259 


036316 






2260 


036316 








036316 








036316 


104405 




2261 








2262 


036320 


005203 




2263 


036322 


020327 


000014 


2264 


036326 


002002 




2265 


036330 


000137 


036146' 


2266 








2267 


036334 








036334 








036334 


104403 





2266 
2269 
2270 



FEB S4 iO:S8 



Hii 



SEO 157 



10<: 



15t! 



22t: 



25*1 



301: 



MOV RO.Rl 

ERROF ERRNO.SFIERR.SFinSG 



CLR INTRECV 

MOV R3.T9DATA»4 

MOV R4.TS0B(R5) 

JSR PC.WAITF 

BCS 15t 

MOV RO.Rl 

ERRDF ERRNO . T9SSR .PKTSSR 



CKLOOP 
ESCAPE SEG 



TST INTRECV 
BNE 22* 

ERRHRO ERRNO. T9NINT. PKTSSR 



NOV 
MOV 
BIT 
BEQ 
BIS 
CMP 
BEQ 
ERRHRD 



ENOSEG 



TSSR(R5).R1 

#SC ! SSR ! r SRE J ! NBA , R2 

•OFL.Rl 

25t 

•0FL.R2 

R2.R1 

30t 

ERRNO. T95REJ. PKTSSR 



tSAVE CONTENTS OF TSSR 

I DEVICE FATAL ERROR DURING INIT 

TRAP CIEROF 
.UORO 917 
.UORO SFIERR 
.UORO SFIMSG 

I CLEAR INTERRUPT RECEIVED FLAG 

(INSERT THE BAD MESSAGE LENGTH 

iSET THE PACKET ADDRESS 

tUAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

tSAVE CONTENTS OF TSSR 

(DEVICE FATAL SSF FAILED TO SET 

TRAP 
.UORO 
.UORO 
.UORD 

I LOOP ON ERROR. IF FLAG SET 

TRAP 

(BY -PASS SUBTEST IF FATAL ERROR 

TRAP 
.UORD 

(DID AN INTERRUPT OCCUR ? 
(BRANCH IF YES 

TRAP 
.UORO 
.UORD 
.UORD 

(GET THE CONTENTS OF TSSR 
(EXPECTED CONTENTS OF TSSR 
(IS OFF-LINE BIT SET ? 
(BRANCH IF NOT OFF-LINE 
(SET OFF-LINE IN EXPECTED DATA 
(DOES EXPECTED MATCH RECEIVED ? 
(OKAY IF MATCH 
(COMMAND NOT REJECTED 

TRAP CtER>«)0 
.UORO 920 
.UORO T95REJ 
.UORO PKTSSR 

!<<<<<<<<<<<<< END SEGMENT <<<<<<<<»<<<< 
10000*: 

TRAP C*ESEG 



C*EROF 
916 

T9SSR 
PKTSSR 

C*CLPl 

C*ESCAPE 
10000*-. 



C*ER»«D 
919 
T9NINT 
PKTSSR 



59* I 



INC 
CMP 
BGE 
JMP 

ENDSUB 



R3 

R3.*14 

59* 

5* 



(NEXT BUFFER LENGTH 

(HAVE ALL BAD VALUES BEEN TESTED ? 

(BRANCH IF ALL TESTED 

(BRANCH TILL BACK TO ZERO 

(\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 
L 10072: 

TRAP C*ESUB 



(TEST 9. SUBTEST 6 



Ill 



TSV5A - HAROUARE TESTS HACRO HlllS 07 FEB-64 10:56 
TEST «»: COnPLETION INTERfHJPT 



SEQ 136 



2271 
2272 
2275 
2274 
2275 
2276 
2277 
2276 
2279 



{THIS SUBTEST IS EXECUTED ONLY If THE EXTENDED 

{FEATURES MODE IS ENABLED (AS DETERHINED BY EXAMINXNG 

tXST2 AFTER A PREVIOUS EXECUTION OF URITE CHARACTERISTICS). 

I IT VERIFIES THAT A FIFTH CHARACTERISTICS DATA WORD IS FETCHED 

ilF THE BYTE COUNT PARAMETER IN THE COMHAND PACKET IS 10 DECIMAL 

tOR GREATER. 



2260 


056556 








056556 








056556 


104409 




2261 


056540 


005757 




2262 


056544 


001002 




2265 


056546 






2264 


056552 






2285 








2286 


056556 








056556 








056562 






2267 


056564 






2288 


056570 


VAC 9^^^ 




2289 056574 


01P7M 




2290 


056402 






2291 


056402 








056402 






2292 








2295 


056404 


AAA7X7 

r ^ f 




2294 


056410 






2298 


056412 


A1 AMI 




2299 056414 








056414 








056416 








056420 








056422 






2500 


056424 






2501 


056450 






2502 


056454 


010465 


000000 


2505 


056440 


004757 


016146' 


2504 


056444 


105407 




2505 


056446 


010001 




2509 


056450 








056450 


104455 






056452 


001652 






056454 


057527- 






056456 


011656* 




2510 056460 


005257 


002220' 


2511 


056464 








056464 


104406 




2512 


056466 








056466 


104410 






056470 


000056 




2515 


056472 


005757 


002222' 


2514 


056476 


001004 




2516 


056500 








056500 


104456 






056502 


001655 





4«: 



5$: 



10$; 



15$! 



BGNSU8 



TST 
BNE 
JMP 

JSR 



EXTFEA 

4$ 

55$ 

PC,T9REST 



SETPRI tPRIOO 



HOV #TSTBLK»10. .R5 

MOV •T9PACKET,R4 

MOV •10..PKBCNT(R4) 

BGNSEG 



JSR PC.SOFINIT 

BCS 10$ 

nOV RO.Rl 

ERROF ERRNO.SFIERR.SFinSG 



CLR FATFLG 

CLR INTRECV 

NOV R4.TS06(R5) 

JSR PC.CHKTSSR 

BCS 15$ 

HOV RO.Rl 

ERROF ERRN0,T9SSR.PKTSSR 



FATFLG 
ESCAPE SEG 



INC 

CKLOOP 



TST INTRECV 
BNE 22$ 

ERRHRD ERRN0.T9NINT.PKTSSR 



BEGIN SUBTEST //////////// 
19. 6: 

TRAP C$BSUB 
tIS EXTENDED FEATURES SOFT. SU SET? 
tBR. IF SOFTWARE SUITCH IS SET (ON) 
jEXiT SUBTEST 

J SET PACKET TO START-UP VALUES 

iLOUER PRIORITY TO ALLOW INTERRUPTS 

MOV #PRIOO.RO 
TRAP C$SPRI 

J START OF TEST DATA 

i GET THE ADDRESS OF COMMAND PACKET 

I START UITH EXTENDED FEATURES VALUE 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$6SEG 

iDO SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT - OK 

tSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 

TRAP C$EROF 
.WORD 921 
.WORD SFIERR 
.UORD SFIMSG 

i CLEAR FATAL ERROR FLAG 

; CLEAR INTERRUPT RECEIVED FLAG 

(SET THE PACKET ADDRESS 

;WAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

;SAVE CONTENTS OF TSSR 

iDEVlCE FATAL SSR FAILED TO SET 

TRAP C$EROF 
.UORD 922 
.UORD T9SSR 
.UORD PKTSSR 

(SET FATAL ERROR FLAG 

(LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 

iBY-PASS SUBTEST IF FATAL ERROR 

TRAP . C$E SCAPE 
.UORD ' 10000$ . 

I DID AN INTERRUPT OCCUR ? 

I BRANCH IF YES 



TRAP 
.WORD 



C$ERHRO 
925 
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TEST 9: COMPLETION INTERRUPT 





036504 


037616' 






036506 


011656' 




2319 


036510 


016501 


000002 


2320 


036514 


012702 


000200 


2321 


036520 


032701 


000100 


2322 


036524 


001402 




2323 036526 


052702 


000100 


2324 


036532 


020201 




2325 


036534 


001404 




2329 


036556 








056556 


104456 






056540 


001634 






056542 


037066' 






056544 


011656' 




2330 


056546 






2331 


056546 








036546 








056546 


104405 




2332 








2333 


056550 


012364 


000006 


2334 


056554 


020527 


005060' 


2335 036560 


105002 




2336 


056562 


000157 


056402' 


2557 








2558 


036566 








056566 








056566 


104405 




2339 








2340 








2341 








2342 








2343 








2344 








2345 








2346 








2347 








2348 








2549 


056570 








056570 








056570 


104402 




2350 








2351 


056572 








056572 


012700 


000000 




056576 


104441 




2352 


056600 


012704 


057010' 


2353 


056604 


004757 


040106' 


2354 


056610 


004757 


01S604' 


2355 036614 


105405 




2559 


056616 


010001 




2560 


056620 








056620 


1044SS 






056622 


001655 






056624 


005644* 






056626 


011644' 




2361 


056630 


005057 


002222' 


2362 056654 


0S2714 


000200 


2565 056640 


010465 


000000 



FEB 84 10:58 



Jll 



SEQ 159 









.UORO 


r9NINT 








.WORD 


PKTSSR 


221: 


MOV 


TSSR(R5),R1 


iGET THE CONTENTS OF TSSR 






MOV 


«SSR.R2 


1 EXPECTED CONTENTS OF TSSR 






BIT 


♦OFL.Rl 


lis OFF-LINE BIT SET ? 






BEQ 


25$ 


iBRAhCH IF NOT OFF-LINE 






BIS 


•0FL,R2 


iSET OFF-LINE IN EXPECTED DATA 






CMP 


R? Rl 


iDOES EXPECTED MATCH RECEIVED ? 






BEQ 


30$ 


lOKAY IF MATCH 






ERRHRO 


ERRNO. T9NBA,PKTSSR 


iNBA NOT ZERO 










TRAP 


OERHRD 








.UORO 


924 








.UORO 


T9NBA 








.UORO 


PKTSSR 


501: 












ENOSEG 




,<<<<<<€<<<<<< END SEGMENT <<<<<<<<<<<<< 








lOOOOt: 










TRAP 


CIESEG 




MOV 


(R3)».PKBCNTCR4) 


iSET THE TEST UORO 






CMP 


R3.*TBLEN0 


iHAS ALL DATA BEEN TESTED ? 






BHIS 


55« 


1 BRANCH IF ALL DATA DONE 






JMP 


51 


(BRANCH TILL BACK TO ZERO 





551: 



ENDSUB 



END SUBTEST \\\\\\\\\\\\\ 
L10073: 

TRAP CIESUB 



TEST 9. SUBTEST 7 

TEST URITE CHARACTERISTICS UITH/UITHOUT INTERRUPTS ENABLED 



10* : 



BGNSUB 



SETPRI 4PRI00 



MOV ♦T9PACKET,R4 

JSR PC.T9REST 

JSR PC.SOFINIT 

BCS 10$ 

MOV RO.Rl 

ERRDF ERRNO . SF lERR . SF IMSG 



CLR INTRECV 
BIS «6IT7.(R4) 
MOV R4.TSD6CR5) 



{//////////// BEGIN SUBTEST //////////// 
T9 7* 

TRAP C$BSUB 



LOUER PRIORITY TO ALLOW INTERRUPTS 

MOV «PRIOO.RO 
TRAP C$SPRI 
GET THE ADDRESS OF COMMAND PACKET 
SET UP A VALID PACKET 
DO SOFT INIT OF CONTROLLER 
BR IF SOFT INIT - OK 
SAVE CONTENTS OF TSSR 
DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 
.WORD 925 
.WORD SFIERR 
.UORO SFIMSG 
t CLEAR INTERRUPT RECEIVED FLAG 
{ENABLE INTERRUPTS 
I SET THE PACKET ADDRESS 



TSVSA - HARDWARE TESTS MACRO Mil IS 
TEST 9: COMPLETION INTERRUPT 



2364 


036644 


004737 


016146' 


2365 


036650 


103405 




2366 


036652 


010001 




2370 


036654 








036654 


104455 






036656 


001636 






036660 


037527' 






036662 


011656' 




2371 


036664 








036664 


104406 




2372 


036666 








036666 


104410 






036670 


000102 




2373 


036672 


005737 


002222' 


2374 


036676 


001004 




2376 


036700 








036700 


104456 






036702 


001637 






036704 


037616' 






036706 


011656' 




2379 036710 








036710 


104406 




2380 








2361 


036712 


005037 


002222 ' 


2362 


036716 


042714 


000200 


2363 


036722 


010465 


000000 


2364 


036726 


004737 


016146' 


2365 


036732 


103405 




2366 


036734 


010001 




2390 036736 








036736 


104455 






036740 


001640 






036742 


037527' 






036744 


011656' 




2391 


036746 








036746 


104406 




2392 036750 








036750 


104410 






036752 


000020 




2393 


036754 


005737 


002222' 


2394 


036760 


001404 




2396 


036762 








036762 


104456 






036764 


001041 






036766 


037707' 






036770 


011656' 




2399 036772 






2400 036772 








036772 








036772 


104403 




2401 








2402 


036774 








036774 


104432 






036776 


001162 





2403 
2404 
2405 



7 -FEB -64 10:56 



Kll 



SEQ 140 



15$; 



JSR PC.CHKTSSR 

BCS 15 t 

MOV RO.Rl 

ERROF ERRNO , T9SSR . PKTSSR 



CKLOOP 
ESCAPE SUB 



22t: 



TST 
BNE 

ERRHRO 



CKLOOP 



INTRECV 
22 < 

ERRNO , T9NINT . PKTSSR 



jWAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

iSAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP ON ERROR. IF FLAG SET 

TRAP 

(BY -PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 

iOID AN INTERRUPT OCCUR 7 
{BRANCH IF YES 

TRAP 
.WORD 
.WORD 
.WORD 



;LOOP ON ERROR ? 



TRAP 



OEROF 
926 
T9SSR 
PKTSSR 

CICLPl 

Cf ESCAPE 
L 10074 -. 



CtERHRO 
927 
T9NINT 
PKTSSR 

CICLPl 



25$: 



30$: 



CLR 


INTRECV 


J CLEAR INTERRUPT RECEIVED FLAG 


BIC 


♦BIT7.(R4) 


{DISABLE INTERRUPTS 


HOV 


R4.TS0BCR5) 


iSET THE PACKET ADDRESS 


JSR 


PC.CHKTSSR 


iWAIT FOR SSR TO SET 


BCS 


25$ 


iBR IF CARRY SET (GOOD RETURN) 


HOV 


RO.Rl 


iSAVE CONTENTS OF TSSR 


ERROF 


ERRNO. T9SSR. PKTSSR 


(DEVICE FATAL SSR FAILED TO SET 




TRAP 






.WORD 






.WORD 






.WORD 


CKLOOP 




:LOOP ON ERROR. IF FLAG SET 






TRAP 


ESCAPE 


SUB 


(BY -PASS SUBTEST IF FATAL ERROR 






TRAP 






.WORD 


TST 


INTRECV 


iDID AN INTERRUPT OCCUR ? 


BEQ 


30$ 


1 BRANCH IF NOT 


ERRHRD 


ERRNO. T9INT. PKTSSR 








TRAP 



ENDSUB 



EXIT 



.WORD 
.WORD 
.WORD 



C$ERDF 
926 
T9SSR 
PKTSSR 

C$CLPl 

C$ESCAPE 
L 10074 -. 



C$ERHRD 
929 
T9INT 
PKTSSR 



END SUBTEST \\\\\\\\\\\\\ 
L 10074: 

TRAP C$ESUB 



TST 



(ALL DONE THIS TEST 



TRAP 
.WORD 



C$EXIT 
L 10065 - 



! LOCAL STORAGE FOR THIS TEST 



TSV5A - HAROUARE TESTS riACRO HI 113 
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07 FEB -84 10:58 



Lll 



SEQ 141 



2406 
2407 
2409 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
24^7 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2<*50 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 



I - 



037000 
037010 
037010 
037012 
037014 
037016 

037020 
037020 
037022 
037024 
037026 

037032 



037052 
037052 
037056 
037062 



037066 
037141 
037240 
037333 
037431 
037527 
037616 
037707 
037776 
040061 



100204 

037020' 

000000 

000010 



037032- 

000000 

000016 

000000 000000 



000000 037140 

000002 000001 

000004 100100 
037066' 



T9PACKET: 



.BLKB 10-<.-TSV267> 



T90ATA: 



.UORO 
.UORO 
.UORD 
.WORD 



.WORD 
.UORD 
.UORO 
.UORO 



100204 
T9DATA 
0 
8. 



T98FR 

0 

14. 
0.0 



T9BFR: .BLKU 8. 



t ♦ 



I COMMAND PACKET FOR TEST 

I WRITE CHAR COMMAND. WITH IE. ACK 

•ADDRESS OF CHARACTERISTICS BLOCK 

•STARTING VALUE OF BLOCK SIZE 

{CHARACTERISTICS DATA BLOCK 
(ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 



{MESSAGE BUFFER 



{TEST DATA FOR SUBTEST TWO 



{DATA HAS FORMAT: 



1ST UORD 
2ND UORD 



OFFSET TO TEST UORD IN PACKET 
BITS TO SET FOR TEST 



T920ATA: 

.UORD 
.UORD 
.UORD 
T9200NE-. 



0.BIT5!BIT6!BIT9!BIT10!BIT11!BIT12!BIT13 
2.BIT0 

4.BIT6!BIT15 



{LOCAL TEXT MESSAGES FOR TEST 



127 


122 


111 


T9NBA: 


.ASCIZ 


127 


122 


111 


T92REJ: 


.ASCIZ 


127 


122 


111 


T93REJ: 


.ASCIZ 


127 


122 


111 


T94REJ: 


.ASCIZ 


127 


122 


111 


T95REJ: 


.ASCIZ 


103 


157 


156 


T9SSR: 


.ASCIZ 


105 


170 


160 


T9NINT: 


.ASCIZ 


125 


156 


145 


T9INT : 


.ASCIZ 


111 


1S6 


143 


T9TSBA: 


.ASCIZ 


103 


157 


155 


TST9ID: 


.ASCIZ 
.EVEN 



WRITE CHARACTERISTICS CoMnand Not Acc«pt«d' 

WRITE CHARACTERISTICS Not Rejected With Non-Z«ro Unused Fields' 
WRITE CHARACTERISTICS Not R«jMt«d With Invalid Data Count' 
WRITE CHARACTERISTICS Not Rajaetad With Invalid Block Address' 
■WRITE CHARACTERISTICS Not Rajactad With Invalid Buffer Length 
'Content* of TSSR Incorrect After WRITE CHARACTERISTICS' 
'Expected Interrupt Not Received On WRITE CHARACTERISTICS' 
'Unexpected Interrupt Received On WRITE CHARACTERISTICS' 
' Incorrect TSBA Address After WRITE CHARACTERISTICS' 
'Completion Interrupt' 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 



rsv5A 

TEST 



- HAROUAPE TESTS MACRO 
9: COMPLETION INTERRUPT 



M1113 07-FEB-a4 10:56 



Mil 



SEQ 142 



2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2^73 
2474 
2475 
2476 
2477 
2478 
2479 
2480 



2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 

2502 
2503 
2504 
2505 
2506 
2507 



2506 
2509 
2510 



2511 
2512 
25 IS 
2514 

2515 
2516 
2517 



040106 
040106 
040112 
040116 
040122 
040126 
040130 
040134 
040140 
040142 
040146 
040150 
040152 
040156 
040160 
040160 
040160 



T9REST: 



040162 
040162 
040162 
040166 
040172 
040200 

040200 
040200 
040200 

040202 
040206 
040206 
040212 
040214 
040220 
040226 
040226 
040226 

040230 
040234 



012701 
012721 
012721 
005v21 
012721 
012721 
005021 
012721 
005021 
005011 
005037 
000207 



104401 



012700 
004737 
012737 



104402 

004737 

012700 
104441 
012704 
012764 



104404 

004737 
103405 



037010' 

100204 

037020' 

000010 
037032' 

000016 



037032' 



043117' 
016322' 
000024 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

CLR 

MOV 

CLR 

aR 

CLR 
RTS 
ENOTST 



♦T9PACKET,R1 

«100204.CR1)» 

*T90ATA.CR1)* 

CRD* 

*6. .(Rl)» 

*T9BFR.CR1)» 

CRD* 

«14. .CR1)» 

CRD* 

CRD 

T9BFR 

PC 



I SAVE THE REGISTERS 

I START OF THE PACKET 

lURITE CHARACTERISTICS WITH ACK. 

I ADDRESS OF CHAR DATA BLOCK 

{EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

I ADDRESS OF MESSAGE BUFFER 

(LENGTH OF MESSAGE BUFFER 



I CLEAR 1ST LOC IN MESSAGE BUFFER 
I RE TURN 



IE 



L 10065: 



TRAP 



C»ETST 



.SBTTL TEST 10: BASIC PACKET PROTOCOL 



THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE 
COMMAND. THE FUNCTION OF THE ACK BIT IN THE COMMAND HEADER UORD. 
AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC. 



TEST 10 SUBTEST 1 

CHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS 
{PROPERLY AND THAT NO INTERRUPT IS GENERATED EVEN 
sIF THE "IE" BIT IS SET IN THE COMMAND PACKET 



; - 



BGNTST 



MOV 

JSR 

002214' MOV 
TIOLOOP: 



♦tstioid.ro 
pc.tstsetup 

•2O..L00PCNT 



BGNSUB 



043146' 

000000 

042310' 
000010 



015604' 



JSR PC.TIORST 
SETPRI «PRIOO 



000006 



5»: 



MOV 
MOV 

BGNSEG 



JSR 
BCS 



♦T10PACKET.R4 
•6..PKBCNTCR4) 



PC.SOFINIT 
10> 



TIO: : 

J ASCII MESSAGE TO IDENTIFY TEST 
J DO INITIAL TEST SETUP 
{PERFORM 20 ITERATIONS 



{//////////// BEGIN SUBTEST //////////// 
TlO.l: 

TRAP C*BSUB 

(SET PACKET TO INITIAL VALUES 
{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV 4PRIO0.R0 
TRAP CtSPRI 
(GET THE ADDRESS OF COMMAND PACKET 
(START WITH MINIMUM ALLOWABLE VALUE 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 

(DO SOFT INIT OF CONTROLLER 
(BR IF SOFT INIT - OK 
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Nil 



2521 


040236 


010001 




2522 


040240 








040240 


104455 






040242 


001751 






040244 


003644' 






040246 


011644' 




2523 


040250 


005037 


002220' 


2524 


040254 


005037 


002222' 


2525 


040260 


010465 


000000 


2526 


040264 


004737 


016146' 


2527 


040270 


103407 




2528 


040272 


010001 




2532 


040274 








040274 


104455 






040276 


001752 






040300 


042650' 






040302 


011656' 




2535 


040304 


005237 


002220' 


2534 


040310 








040310 


104406 




2535 


040312 








040312 


104410 






040314 


000056 




2536 


040316 


005737 


002222' 


2537 


040322 


001004 




2541 


040324 








040324 


104456 






040326 


001753 






040330 


042737' 




2542 


040332 


011656' 




040334 


016501 


000002 


2543 


040340 


012702 


0O0200 


2544 


040344 


032701 


000100 


2545 


040350 


001402 




2546 


040352 


052702 


000100 


2547 


040356 


020201 




2548 


040360 


001404 




2552 


040362 








040362 


104456 






040364 


001754 






040366 


042511' 






040370 


011656' 




2553 


040372 






2554 


040372 








040372 








040372 


104405 






040374 








040374 


104404 




2556 








2557 


040376 


005037 


002222' 


2558 


040402 


012737 


025252 


2559 


040410 


012714 


100212 


2560 


040414 


010465 


000000 


2561 


040420 


004737 


016146' 


2562 


040424 


103407 




2563 


040426 


010001 




2567 


040430 







lOti 



15$: 



22$: 



25$: 



30$: 



MOV RO.Rl 

ERROr ERRNO.SFIERR.SFinSG 



CLR FATFLG 

CLR INTRECV 

HOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

BCS 15$ 

MOV RO.Rl 

ERRDF ERRNO.TIOSSR.PKTSSR 



INC FATFLG 
CKLOOP 

ESCAPE SEG 



TST 
BNE 

ERRHRO 



MOV 
MOV 
BIT 
BEQ 
BIS 
CMP 
BEQ 
ERRHRO 



ENOSEG 



BGNSEG 



CLR 
MOV 
MOV 
MOV 
JSR 
BCS 
MOV 
ERROF 



INTRECV 
22$ 

ERRNO . TIONINT . PKTSSR 



TSSRCR5).Rl 
«SSR.R2 
♦OFL.Rl 
25$ 

♦0FL.R2 

R2.R1 

30$ 

ERRNO , TIONBA , PKTSSR 



INTRECV 

«025252.T106FR 

«100212.CR4) 

R4.TSDBCR5) 

PC.CHKTSSR 

45$ 

RO.Rl 

ERRNO.TIOSSR.PKTSSR 



SEQ 143 



I SAVE CONTENTS OF TSSR 

(DEVICE FATAL ERROR DURING INIT 

TRAP C$EROF 
.WORD 1001 
.WORD SFIERR 
.WORD SFIMSG 

; CLEAR FATAL ERROR FLAG 

I CLEAR INTERRUPT RECEIVED FLAG 

jSET THE PACKET ADDRESS 

J WAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP C$EROF 
.WORD 1002 
.WORD TIOSSR 
.WORD PKTSSR 

sSET FATAL ERROR FLAG 

(LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 

(BY -PASS SUBTEST IF FATAL ERROR 

TRAP C$ESCAPE 
.WORD 10000$-. 

(DID AN INTERRUPT OCCUR ? 

(BRANCH IF YES 

TRAP C$ERHRD 
.WORD 1003 
.WORD TIONINT 
.WORD PKTSSR 

(GET THE CONTENTS OF TSSR 

(EXPECTED CONTENTS OF TSSR 

(IS OFF-LINE BIT SET ? 

(BRANCH IF NOT OFF-LINE 

(SET OFF-LINE IN EXPECTED DATA 

(DOES F.XPECTED MATCH RECEIVED ? 

(OKAY tF MATCH 

(NBA NOT ZERO 

TRAP C$ERHRD 
.WORD 1004 
.WORD TIONBA 
.WORD PKTSSR 

(<<<<<<<<{<<<< END SEGMENT <<<<<<<<<<<<< 
10000$: 

TRAP C$ESEG 
!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 

(CLEAR INTERRUPT RECEIVED FLAG 

(WIPE OUT MESSAGE BUFFER AREA 

(SET COMMAND PACKET TO MESS BUF REL 

(SET THE PACKET ADDRESS 

(WAIT FOR SSR TO SET 

(BR IF CARRY SET CGOOD RETURN) 

(SAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 
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AA1 7^^ 








































1 AAAA<^ 




5^ 7ft 




AA^7Y7 




C7 f 4 




AA1 AAA 




f 3 '3 




















A01 7^ 








JV JV 












PS7<k 




VXv JV A 


AOAAA9 


a'^77 

c J f f 




At 97AP 
VAC ■ vc 


OAA9AA 


7^ 7 A 












00143P 








0V70P 
VJC » vc 








VCVCV A 








OA1AAA 




9SAA 


OAOS19 


















OOl 7*17 








AAa^7Y' 

V^K J ' ^ 








A1 tH^' 




?*M7 

C JO ' 












A1 X7A1 








Al 37A3 
VIC 'UC 


A9i(9^9 






vcwlOe 








AAI AAA 
















1 AAA^J^ 
IW*^ JO 








AA1 7AA 








AA9A 1 A • 






040544 


015S04' 




2596 


040546 






2597 


040546 


005757 


002220' 


2596 


040552 


001405 


2599 


040554 


004757 


017014' 


2600 


040560 








040560 








040560 


104405 




2601 


040562 






2602 


040562 








040562 








040562 


104403 





2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
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SEQ 144 



451: 



52>: 



55»! 



60$: 



701: 



80t: 



INC 

CKLOOP 



FATFLG 



TST INTRECV 
BEQ 52* 

ERRMRO EMMO.TIOINT.PKTSSR 



HOV 

nov 

BIT 
BEQ 
BIS 
CI* 

B EQ 

ERRHRO 



nov 

MOV 
CMP 
BEQ 
ERRHRD 



TST 
BEQ 
JSR 

ENOSEG 



ENOSUB 



TSSR(R5).R1 
•SSR.R2 
•OFL.Rl 
551 

•0»^L.R2 

R2.R1 

60» 

ERRNO . T lONNBA . PK T SSR 



TlOBTR.Rl 
•025252. R2 
R1.R2 
70 » 

ERRNO . T 10t«F . EXPREC 



FATFLG 
80 1 

PC.CKOROP 



TRAP CtEROF 
.UORO 1005 
.UORO TiOSSR 
.MORO PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 
I 010 AN INTERRUPT OCCUR 7 
•BRANCH IF NO 

TRAP CtERHRD 
.UORO 1006 
.WORD TIOINT 
.WORD PKTSSR 

iGET THE CONTENTS OF TSSR 

{EXPECTED CONTENTS OF TSSR 

lis OFF-LINE BIT SET 7 

iBRANCH IF NOT OFF-LINE 

I SET OFF-LINE IN EXPECTED DATA 

I DOES EXPECTED HATCH RECEIVED ? 

tOKAY IF HATCH 

iNBA SET 

TRAP CtERHRD 
.WORD 1007 
.UORO TIONNBA 
.WORD PKTSSR 

(PICK UP THE 1ST UORO OF HESSAGE BUFFER 

I SET UP EXPECTED DATA 

I WAS ANY HESSAGE REC'O 

iBR. IF OK (EQUAL) 

iHESSAGE BUFFER UAS HODiriED 

TRAP C tER»«D 

.UORO 1008 

.UORO TIOHBF 

.UORO EXPREC 



I ANY FATAL ERRORS 
I BR. IF NO FATAL ERRORS 
tTRY TO DROP THE UNIT 
,<<<<<<<<<<<<< END SEGHENT 
lOOOlt: 

TRAP 



<<<<<<<<<<<<< 



CtESEG 



\/f //////// f/ END SUBTEST ////*//////// 
L 10076: 

TRAP CtESUB 



'iTEST 10 SUBTEST 2 

'checks that THE HESSAGE BUFFER RELEASE COHHAND WORKS 

I PROPERLY AND THAT THERE IS AN INTERRUPT IF THE "IE" 

iBIT IS SET IN THE COHHAND PACKET AND THE 'ERI' BIT 

lis SET IN THE CHARACTERISTICS DATA PACKET 

I 

I 



C12 
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2615 



2b 14 
2615 
2616 



2617 
261S 
2619 
2620 

2621 
2622 
262S 
2627 
2626 



2629 
26S0 
26S1 
2632 
2633 
2634 
2635 
2639 



2640 
2641 

2642 



2643 
2644 
2646 



2649 

2650 
2651 
2652 
2653 
2654 
2655 
2659 



mi 

040564 

040566 
040572 
040572 
040576 
040600 
040604 
040612 
040612 
040612 

040614 
040620 
040622 
040624 
040624 
040626 
040630 
040632 
040634 
040640 
040644 
040652 
040656 
040662 
040664 
040666 
040666 
040670 
040672 
040674 
040676 
040702 
040702 
040704 
040704 
040706 
040710 
040714 
040716 
040716 
040720 
040722 
040724 
040726 
040732 
040736 
040742 
040744 
040750 
040752 
040754 
040754 
040756 



104402 

004737 043146' 

012700 000000 
104441 

012704 042310' 

012764 000010 000006 

104404 

004737 015604* 

103405 

010001 

104455 
001761 
003644' 
011644- 

005037 002220' 

005037 002222' 

012737 000020 042326' 

010465 000000 

004737 016146' 

103407 

010001 

104455 

001762 

042650* 

011656' 

005237 002220' 

104406 

104410 
000056 

00S737 002222* 
001004 

104456 

001763 

042737* 

011656* 

016501 000002 
012702 000200 
032701 000100 
001402 

052702 000100 

020201 

001404 

104456 

001764 



5t: 



101: 



151 i 



22ti 



251: 



BGNSUB 



JSR 
SCTPRl 



MOV 
MOV 

8GNSEG 



JSR 
BCS 
MOV 
ERROF 



CLR 
CLR 
MOV 
MOV 
JSR 
BCS 
MOV 
ERROF 



INC 

CKLOOP 



PC.TIORST 
«PRI0O 



•T10PACKET.R4 
•e..PKBCNTCR4) 



PC.SOFINIT 

10 'v 

RO.Rl 

ERRNO . SF lERR . SF IMSG 



FATFLG 
INTRECV 

«000020.T100ATA»6 

R4.TS0B(R5) 

PC.C»<TSSR 

151 

RO.Rl 

ERRNO . T lOSSR . PK TSSR 



FATFLo 



ESCAPE SEG 



TST INTRECV 
BNE 22< 

ERRHRO ERRNO. TIONINT.PKTSSR 



MOV TSSR(R5).R1 

MOV •SSR.R2 

BIT COFL.Rl 

BEQ 251 

BIS •0FL.R2 

CMP R2.R1 

BEQ SOI 

ERRHRO ERRNO. TIONB A. PK TSSR 



SEQ 145 



l//////////// BE^^N |UBTEST //////////// 

TRAP CIBSUB 

I SET PACKET TO INITIAL VALUES 
ILOUER PRIORITY TO ALLOW INTERRUPTS 

MOV •PRIOO.RO 
TRAP C*SPRI 
I GET THE ADDRESS OF COMMAND PACKET 
I START WITH MINIMUM ALLOUABLE VALUE 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C»BSEG 

I 00 SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT • OK 

tSAVE CONTENTS OF TSSR 

lOEVICE FATAL ERROR DURING INIT 

TRAP C»EROF 
.UORO 1009 
.WORD SFIERR 
.WORD SFIMSG 

t CLEAR FATAL ERROR FLAG 

I Clear interrupt received flag 

I SET ERI IN CHARACTERISTICS DATA 

■SET THE PACKET ADDRESS 

tWAIT FOR SSR TO SET 

iBR IF CARRY SET CGOOD RETURN) 

tSAVE CONTENTS OF TSSR 

IDEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.WORD 1010 
.UORO TIOSSR 
.UORO PKTSSR 

I SET FATAL ERROR FLAG 

iLOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 

iBv-PASS SUBTEST IF FATAL ERROR 

TRAP CIESCAPE 
.WORD 100001 -. 

I DID AN INTERRUPT OCCUR 7 

•BRANCH IF YES 



TRAP 
.UORO 
.WORD 
.UORO 

I GET THE CONTENTS OF TSSR 
I EXPECTED CONTENTS OF TSSR 
lis OFF-LINE BIT SET ? 
iBRANCH IF NOT OFF-LINE 
I SET OFF-LINE IN EXPECTED DATA 
lOOES EXPECTED MATCH RECEIVED ? 
I OKAY IF MATCH 
iNBA NOT ZERO 

TRAP 
.UORO 



C<ER»M> 
1011 
TIONINT 
PKTSSR 



C»ERHR0 

lOlJ 



D12 





prdtBcoC 


1113 07 -FEB 04 


10:56 






<^F Q 1 Af. 
















• ilCRO 


TIONBA 
















.WORD 


PKTSSR 


2660 


040764 






309: 












040/64 








ENOSEG 




l<<<<<<<<<<<<< END SECHENT «***< 


<K€<<\<< 
















10000*: 






040764 


104405 










TRAP 


C*ESEG 




04Vf66 








BGNSEG 




!>>>>>>>>>>>> BEGIN SEGMENT > > > > 


>>>>>>>>> 






1 AAAAA 
104404 










TRAP 


ciesec 






















040f 70 


AAKAS7 

00905r 


002222' 




CLR 


INTRECV 


iCLEAR INTERRUPT RECEIVED FLAG 






AAA77A 

040' r4 


At S7S7 


025252 


042332' 


nov 


•025252. TIOBFR 


iUiPE OUT MESSAGE BUFFER AREA 




CvOO 


V^&WIC 


A1S71A 
OlC I 14 


100212 




HOV 


•100212. (R4) 


iSET COnnAND PACKET TO HESS BUF 




cOOr 




At AAJL4 
010403 


000000 




MOV 


R4.TS0B(R5) 


iSET THE PACKET ADDRESS 








AAA7V7 
004f 3f 


016146' 




JSR 


PC.CHKTSSR 


tUAIT FOR SSR TO SET 






U41010 


t AVAA7 
10940r 






BCS 


45« 


iBR IF CARRY SET (GOOD RETURN) 






AA1 ASA 


At AAA1 
OlOOOl 






nov 


RO.Rl 


{SAVE CONTENTS OF TSSR 




CO '4 


AA1 A33 








ERftOF 


ERRNO.TIOSSR.PKTSSR 


1 DEVICE FATAL SSR FAILED TO SET 






V^&VCC 


1 AAA^^ 
1V4499 










TRAP 


C*ERDF 




AA1 ASA 


AA1 7<k4 
wOl r09 










.UORO 


1013 




AA1 AML 


AAS&VA' 
04C090 










.WORD 


TIOSSR 




AA1 AVA 


At 1AKA> 
011030 










.yORO 


PKTSSR 




AA1 A'CS 


AA^S<7 


002220' 




INC 


FATFLC 


iSET FATAL ERROR FLAG 




ev rO 


AA1 AV^ 
04&WA0 






45t: 


CKLOOP 




iLOOP ON ERROR. IF FLAG SET 






AA1 AU> 


1 AAAA& 
10440D 










TRAP 


C*CLP1 


CV r r 


AAt AAA 


AA47C7 
003f S' 


002222* 




TST 


INTRECV 


iDIO AN INTERRUPT OCCUR 7 




sOrO 


AA1 AAA 


AAt AAA 
001004 






BNE 


52* 


t BRANCH IF YES 




COO< 


AA1 AAA 








ERRHRO 


ERRNG. T lOINT .PKTSSR 








AA4 AAA 

041O46 


t AAAKA 

104456 










TRAP 


C*ER>«0 




AA t AKA 


AAt 7AA 

001766 










.yORO 


1014 




AA 4 AK9 


AA VASAt 

04 9090' 










.UORO 


TIOINT 




AA1 ACA 


At t A4A f 

011O96 










.UORO 


PKTSSR 




AA1 AKA 
041096 


At AKAt 

016301 


000002 


52t: 


nov 


TSSR(R5).R1 


iGET THE CONTENTS OF TSSR 






AA4 tfWO 

04106c 


At S7AS 

012702 


000200 




nov 


•SSR.R2 


:EXPECTEO CONTENTS OF TSSR 




C009 


AA i ^AA 
041000 


AVS7At 

0S2701 


000100 




BIT 


•OFL.Rl 


lis OFF-LINE BIT SET ? 






AA1 A79 
U4LO 


AAt AAS 

001402 






8EQ 


55 « 


{BRANCH IF NOT OFF-LINE 






AA1 ATA 


AKS7AS 

09c rOc 


000100 




BIS 


•0FL,R2 


iSET OFF-LINE IN EXPECTED DATA 






AA1 1 AA 


ASASAt 

OcOcOl 




55t: 


cnp 


R2.R1 


iDOES EXPECTED NATCH RECEIVED ? 






AA1 IAS 


AAt AAA 
001404 






BEQ 


60< 


lOKAY IF HATCH 




COYS 


AA1 1 AA 
041104 








ERRHRO 


ERRNO. TIONNBA. PKTSSR 


iNBA NOT SET 






AA 1 1 AA 

041104 


104456 










TRAP 


C*ER>«D 




AA1 1 ^A 

041106 


AAt 7AY 

OOl ro7 










.WORD 


1015 




AA1 1 1 A 
041110 


AASKSVl 

042373' 










.yORO 


TIOMSA 




AA1 lis 
041 • Irf 


At t A&Al 

0116S6 










.yORO 


PKTSSR 




AA1 1 1 A 
041114 






60t: 












AA1 1 1 A 
041114 


At V7At 

Ola rOl 


042332' 




nov 


TIOBFR.RL 


iPICK UP THE 1ST UORO OF HESSAGE BUFFER 


COvO 


AA 1 1 SA 
0411^0 


A t S7AS 
Olc r02 


025252 




nov 


•025252. R2 


iSET UP EXPECTED DATA 




2697 


041124 


VCw&VC 






cnp 


R1.R2 


lUAS ANY HESSAGE REC'O 




2698 


041126 


001404 






BEQ 


70t 


iBR. IF OK (EQUAL) 




2702 


041130 








ERRHRO 


ERRNO. TIOHBF .EXPREC 


1 HESSAGE BUFFER UAS HODIFIED 






041130 


104456 










TRAP 


CtER^AD 




041132 


001770 










.UORO 


1016 




041134 


042414' 










.UORO 


TIOMBF 




041136 


015304' 










.UORO 


EXPREC 


2703 


















270« 


041140 






70* : 










2705 


041140 


005737 


002220' 




TST 


FATFLG 


lANY FATAL ERRORS 




2706 


041144 


001402 






BEQ 


80* 


iBR. IF NO FATAL ERRORS 
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SCO 147 



2707 
2708 
270«» 



2710 



2711 
2712 
2715 
2714 
2715 
27ie 
2717 
2718 
2719 
2720 



2721 
2722 
2725 



2724 
2725 
2726 
2727 

2726 
2729 
2730 
27S4 
2755 



2736 
27S7 
27Sa 
2739 
2740 
2741 
2745 



2746 
2747 

2748 



2749 



041146 
041152 
041152 
041152 
041152 
041154 
041154 
041154 



041156 
041156 
041156 

041160 
041164 
041164 
041170 
041172 
041176 
041204 
041204 
041204 

041206 
041212 
041214 
041216 
041216 
041220 
041222 
041224 
041226 
041232 
041236 
041242 
041246 
041250 
041252 
041252 
041254 
041256 
041260 
041262 
041266 
041266 
041270 
041270 
041272 
041274 



004757 017014' 

104405 
104405 



80»: 



JSR PC.CKDROP 
ENDSEG 

ENOSUB 



,TRY TO DROP THE UNIT 



!<<<<<<<<<<<<< END SEGMENT <<<«<«<*««<«< 
100011: 

TRAP CIESCG 

I //////////// END SUBTEST //////////// 
L10077: 

TRAP CtESm 



ItEST 10 SUBTEST 5 

j CHECKS THAT THE CPU GIVES UP OUNERSHIP OF THE MESSAGE BUFFER 
{AFTER THE MESSAGE BUFFER RELEASE. AND THAT FXLOUING COMMANDS 
lUORK CORRECTLY 
t 

i - 



104402 

004757 045146' 

012700 000000 
104441 

012704 042510' 

012764 000010 000006 



SI: 



104404 

004737 
103405 
OlOOOL 

104455 

001771 

003644' 

011644' 

005037 

005037 

010465 

004737 

103407 

010001 

104455 

001772 
042650' 
011656' 
005257 

104406 



015604' 



002220' 
002222' 
000000 
016146' 



10«: 



002220' 



ISti 



BGNSUB 



JSR 
SETPRI 



NOV 
MOV 

BGNSEG 



JSR 
BCS 
MOV 
ERROF 



CLR 
CLR 
MOV 
JSR 
BCS 
MOV 
ERRDF 



INC 

CKLOOP 



PC.TIORST 
•PRIOO 



•T10PACKET.R4 
#6..PKBCNT(R4) 



PC.SOFINIT 
10 • 
RO.Rl 

ERRNO . SF lERR . SF IMSG 



FATFLG 

INTRECV 

R4.TS0B(R5) 

PC.CHKTSSR 

151 

RO.Rl 

ERRNO. TIOSSR .PKTSSR 



FATFLG 



104410 

000056 

005757 002222' 



ESCAPE SEG 



TST 



INTRECV 



I //////////// BEGIN SUBTEST ///////'//// 
T10.5: 

TRAP CIBSUB 

I SET PACKET TO INITIAL VALUES 
iLOUER PRIORITY TO ALLOW INTERRUPTS 

MOV tPRIOO.RO 
TRAP CtSPRI 
I GET THE ADDRESS OF COMMAND PACKET 
I START UITM MINIMUM ALLOWABLE VALUE 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CtBSEG 

I DO SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT - OK 

(SAVE CONTENTS OF TSSR 

lOEVICE FATAL ERROR DURING INIT 

TRAP OERDF 
.WORD 1017 
.WORD SFIERR 
.WORD SFIHSG 

I CLEAR FATAL ERROT FLAG 

(CLEAR INTERRUPT RECEIVED FLAG 

I SET THE PACKET ADDRESS 

iWAIT FOR SSR TO SET 

iBR IF CARRY SET CGOOD RETURN) 

I SAVE CONTENT*; OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.WORD 1018 
.WORD TIOSSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 

I LOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

tBY-PASS SUBTEST IF FATAL ERROR 

TRAP CIESCAPE 
.WORD 10000* •. 

t DID AN INTERRUPT OCCUR ? 



F12 
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2750 


041300 


001004 






BNE 


221 


2754 


041302 








ERRHRD 


ERRNO . T lONINT . PK TSSR 




041302 


104456 










041304 


001773 












041306 


042737' 












041310 


011656- 










2755 


041312 


016501 


000002 


22* : 


MOV 


rSSR(R5),Rl 


2756 


041316 


012702 


000200 




MOV 


«SSR.R2 


2757 


041322 


032701 


000100 




BIT 


♦OFL.Rl 


2758 


041326 


001402 






BEQ 


25* 


2759 


041330 


052702 


OOOlOO 




BIS 


•0FL.R2 


2760 


041334 


020201 




25$: 


CMP 


R2.RI 


2761 


041336 


001404 






BEQ 


30* 


2765 


041340 
041340 
041342 
041344 
041346 


104456 
001774 
042511- 
011656' 






ERRHRD 


ERRNO . T lONBA . PK T SSR 


2766 


041350 






30t: 






2767 


041350 
041350 
041350 


104405 






ENDSEG 




2768 


041352 
041352 


104404 






BGNSEG 




2769 


041354 


004737 


043146' 




JSR 


PC.TIORST 


2770 


041360 


005037 


002222' 




CLR 


INTRECV 


2771 


041364 


012737 


025252 042332' 




MOV 


•025252. T106FR 


2772 


041372 


012714 


100212 




MOV 


•100212. (R4) 


2773 


041376 


010465 


000000 




MOV 


R4.TS0B(R5) 


2774 


041402 


004737 


016146' 




JSR 


PC.CNKTSSR 


2775 


041406 


103407 






BCS 


451 


2776 


041410 


010001 






MOV 


RO.Rl 


2780 


041412 








ERROF 


ERRNO . T lOSSR . PK T SSR 




041412 


104455 










041414 


001775 












041416 


042650' 










2781 


041420 


011656' 










041422 


00S237 


002220' 




INC 


FRTFLC 


2782 


041426 






451: 


CKLOOP 




2783 


041426 


104406 










041430 


005737 


002222' 




TST 


INTRECV 


2784 


041434 


001404 






BEQ 


52t 


2788 


041436 










ERRNO , T lOINT . PK TSSR 




041436 


104456 










041440 


001776 












041442 


043030* 












041444 


011656' 










2789 


041446 


016501 


000002 


52t: 


MOV 


TSSR(R5).R1 


2790 


041452 


012702 


000200 




MOV 


•SSR.R2 


2791 


041456 


032701 


000100 




BIT 


•OFL.Rl 


2792 


041462 


001402 






BEQ 


55t 


2793 


041464 


052702 


OOOlOO 




BIS 


•0FL.R2 


2794 


041470 


020201 




55t: 


CMP 


R2.R1 


2795 


041472 


001404 






BEQ 


601 


2799 


041474 








ERRHRD 


ERRNO. TIONNBA.PKTSSR 




041474 


104456 










041476 


001777 











SEQ 14S 

I BRANCH IF TES 

TRAP C*ERHRD 
.yOm 1019 
.WORD TIONINT 
.WORD PKTSSR 

I GET THE CONTENTS OF TSSR 

lEXPECTEO CONTENTS OF TSSR 

lis OFF-LINE BIT SET ? 

I BRANCH IF NOT OFF-LINE 

I SET OFF-LINE IN EXPECTED DATA 

iDOES EXPECTED MATCH RECEIVED ? 

lOKAr IF MATCH 

I NBA NOT ZERO 

TRAP C*ER»«K) 
.WORD 1020 
.WORD T10*«A 
.WORD PKTSSR 

!<<<<<<<<<<<<< END SEGMENT <<<<«««<««<<< 
10000*: 

TRAP C9CSCG 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>»»»» 

TRAP 

I RESET PACKETS AND COMMANDS 

I CLEAR INTERRUPT RECEIVED FLAG 

I WIPE OUT MESSAGE BUFFER AREA 

I SET COMMAND PACKET TO MESS BUF RCL 

I SET THE PACKET ADDRESS 

I WAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

iSAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP C»EROF 
.yORO 1021 
.yORO TIOSSR 
.yORD PKTSSR 

I SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP C*CLP1 
I DID AN INTERRUPT OCCUR ? 
I BRANCH IF NO 

TRAP C*ER>«K) 
.WORD 1022 
.WORD TIOINT 
.WORD PKTSSR 

iGET THE CONTENTS OF TSSR 

{EXPECTED CONTENTS OF TSSR 

lis OFF-LINE BIT SET ? 

{BRANCH IF NOT OFF-LINE 

I SET OFF-LINE IN EXPECTED DATA 

lOOES EXPECTED MATCH RECEIVED ? 

tOKAY IF MATCH 

iNBA NOT SET 

TRAP C*ER»«0 
.UORD 10^5 
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041500 


042573' 






041502 


011656' 




2600 


041504 






2801 


041504 


013701 


042332' 


2802 


041510 


012702 


025252 


2803 


041514 


020102 




2804 


041516 


001404 




2808 


041520 








041520 


104456 






041522 


002000 






041524 


042414' 






041526 


015304' 




2809 








2810 


041530 








041530 


104406 




2811 








2812 


041532 


005037 


002222' 


281S 


041536 


004737 


043146' 


2814 


041542 


042714 


100000 


2815 


041546 


010465 


000000 


2816 


041552 


004737 


016146' 


2817 


041SS6 


103407 




2818 


041560 


010001 




2822 


041562 








041562 


104455 






041564 


002001 






041566 


042650' 






041570 


011656' 




2823 


041572 


005237 


002220' 


2824 


041576 








041576 


104406 




2825 


041600 








041600 


104410 






041602 


000062 




2626 


041604 


005737 


002222' 


2627 


041610 


001006 




2831 


041612 


016500 


000002 


2832 


041616 








041616 


104456 






041620 


002002 






041622 


042737' 






041624 


011656* 




2833 


041626 


016501 


000002 


2634 


0416S2 


012702 


000200 


2635 


041636 


032701 


000100 


2636 


041642 


001402 




2637 


041644 


052702 


000100 


2636 


041650 


020201 




2639 


041652 


001404 




2643 


041654 








041654 


104456 






041656 


002003 






041660 


042650' 






041662 


011656' 




2844 


041664 






2845 


041664 








041664 







10:58 



G12 



SEQ 149 



.WORD 
.WORD 



T10»MBA 

PKTSSR 



nov 

NOV 
CMP 
BEG 
ERRHRD 



CKLOOP 



CLR 
JSR 
BIC 
HOV 
JSR 
6CS 

nov 

ERROF 



INC 

CKLOOP 



TlOBFR.Rl 
•025252. R2 
R1.R2 
701 

ERRNO.TIOMBF.EXPREC 



INTRECV 

PC.TIORST 

#100000. (R4) 

il4.TS0e(R5) 

PC.CHKTSSR 

751 

RO.Rl 

ERRNO.TIOSSR.PKTSSR 



FATFLG 



ESCAPE SEG 



TST INTRECV 

BNE 821 

NOV TSSRCR5).R0 

ERRHRD ERRNO.TIONINT. PKTSSR 



nov TSSR(R5>.R1 

nov #SSR.R2 

BIT #OFL.Rl 

BEQ 85t 

BIS •0FL.R2 

CnP R2.R1 

BEQ 901 

ERRHRD ERRNO . T lOSSR . PKTSSR 



ENOSEG 



iPICK UP THE 1ST UORD OF MESSAGE BUFFER 

I SET UP EXPECTED DATA 

I WAS ANY HESSAGE REC'O 

iBR. IF OK (EOUAL) 

(MESSAGE BUFFER MAS MXIFIEO 

TRAP CtERHRO 
.UORD 1024 
.UORD TIOMBF 
.UORD EXPREC 

iLOOP ON ERROR IF FLAG SET 

TRAP CtCLPl 

iCLEAR INTERRUPT RECEIVED FLAG 

tRESET THE PACKETS AND COMMANDS 

iCLEAR THE ACK BIT 

I SET THE PACKET ADDRESS 

lUAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

I SAVE CONTENTS OF TSSR 

iDEVlCE FATAL SSR FAILED TO SET 

TRAP CIEROF 
.UORD 1025 
.UORD TIOSSR 
.UORD PKT'i'-P 

tSET FATAL ERROR FLAG 

iLOOP ON ERROR. IF FLAG SET 

TRAP CICLPl 

iBY-PASS SUBTEST IF FATAL ERROR 

TRAP C (ESCAPE 
.UORD 10001$-. 

I DID AN INTERRUPT OCCUR ? 

(BRANCH IF YES 

(GET TSSR FOR ERROR REPORT 

TRAP CIERHRO 
.UORO 1026 
.UORD TIONINT 
.UORD PKTSSR 

(GET THE CONTENTS OF TSSR 

(EXPECTED CONTENTS OF TSSR 

(IS OFF-LINE BIT SET ? 

(BRANCH IF NOT OFF-LINE 

(SET OFF-LINE IN EXPECTED DATA 

(DOES EXPECTED MATCH RECEIVED ? 

jOKAY IF MATCH 

(NBA NOT ZERO 

TRAP CtERHRO 
.WORD 1027 
.WORD TIOSSR 
.WORD PKTSSR 

!<<<<<<<<<<<<< END SEGMENT <<<*<<<<«<<<< 
100011: 



TSV5A HAROUARE TESTS mCRQ HI 
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041664 


104405 




2846 


041666 


005737 


002220' 


2847 


041672 


001403 




2848 


041674 


004737 


017014' 


2849 








2850 


041700 








041700 


104404 




2851 


041702 


005037 


002222' 


2852 


041706 


004737 


043146' 


2853 


041712 


010465 


000000 


2854 


041716 


004737 


016146' 


2655 


041722 


103407 




2856 


041724 


010001 




2860 


041726 








041726 


104455 






041730 


002004 






041732 


042650' 






041734 


011656' 




2861 


041736 


005237 


002220' 


2862 


041742 








041742 


104406 




2663 


041744 








041744 


104410 






041746 


000062 




2864 


041750 


005737 


002222' 


2865 


041754 


001006 




2869 


041756 


016500 


000002 


2670 


041762 








041762 


104456 






041764 


002005 






041766 


042737' 






041770 


011656' 




2871 


041772 


016501 


000002 


2872 


041776 


012702 


000200 


2673 


042002 


032701 


000100 


2674 


042006 


001402 




2875 


042010 


052702 


000100 


2876 


042014 


020201 




2877 


042016 


001405 




2881 


042020 








042020 


104456 






042022 


002006 






042024 


042650' 






042026 


011656' 




2882 


042030 








042030 








042030 


104405 




2683 


042032 


005737 


002220' 


2664 


042036 


001402 




2685 


042040 


004737 


017014- 


2686 


042044 






2687 


042044 








042044 








042044 


104403 




2688 


042046 






2669 








2890 









FEB 84 10:58 



H12 



SEQ 150 



95«: 



100* : 



TST 
BEQ 
JSR 

BGNSEG 

CLR 
JSR 
MOV 
JSR 
BCS 
MOV 
ERROT 



INC 

CKLOOP 



1121: 



125<: 



130<i 
140«: 

301: 



TST 
BNE 
MOV 

ERRHRO 



nov 
nov 

BIT 
BEQ 
BIS 
CMP 
BEQ 
ERRHRO 



ENOSEG 



TST 
BEQ 

JSR 

ENOSUB 



FATFLG 
95 » 

PC.CKOROP 



INTRECV 

PC.TIORST 

R4.TSDB(R5) 

PC.CMKTSSR 

1001 

RO.Rl 

ERRNO . T lOSSR . PK TSSR 



FATFLG 



ESCAPE SEC 



INTRECV 
112* 

TSSR(R5).R0 

ERRNO. TIONINT .PKTSSR 



TSSR(R5).R1 

•SSR.R2 

•OFL.Rl 

125 > 

•0FL.R2 

R2,Rl 

130* 

ERRNO. TIOSSR. PKTSSR 



FATFLG 
1401 

PC.CKDROP 



J ANY FATAL EPRORS 
I BR. IF NO FATAL ERRORS 
iTRY TO DROP TME UNIT 



TRAP 



CIESEG 



i<<<<<<<<<<<<< BGN SEGMENT <<<<< 

TRAP 

(CLEAR INTERRUPT RECEIVED FLAG 

t RESET THE PACKETS AND COMMANDS 

(SET THE PACKET ADDRESS 

I WAIT FOR SSR TO SET 

iBR ir CARRY SET (GOOD RETURN) 

J SAVE CONTENTS OF TSSR 

J DEVICE FATAL SSR FAILED TO SET 

TRAP 
.UORD 
.WORD 
.UORD 

iSET FATAL ERROR FLAG 
J LOOP ON ERROR. IF FLAG SET 

TRAP 

iBV-PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 

tDID AN INTERRUPT OCCUR ? 

I BRANCH IF YES 

sGET TSSR FOR ERROR REPORT 



<<<<<<<< 
CIBSEG 



C»ERDF 
1028 
TIOSSR 
PKTSSR 



CICLPl 

CIESCAPE 
10002$ -. 



TRAP CtERhRD 
.WORD 1029 
.WORD TIONINT 
.WORD PKTSSR 

jGET THE CONTENTS OF TSSR 

(EXPECTED CONTENTS OF TSSR 

(IS OFF-LINE BIT SET ? 

(BRANCH IF NOT OFF-LINE 

(SET OFF-LINE IN EXPECTED DATA 

(DOES EXPECTED MATCH RECEIVED ? 

(OKAY IF MATCH 

(NBA NOT ZERO 

TRAP CtERHRD 
.WORD 1030 
.WORD TIOSSR 
.WORD PKTSSR 
{<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 
10002*: 

TRAP CtESEG 
(CHECK FATAL FLAG FOR SET 
iBR. IF NOT SET (OK) 
(DROP DEVICE IF INDICATED 

(//////////// END SUBTEST //////////// 
L 10100: 

TRAP C*ESUB 



I » 



112 



TSV5A HARDWARE TESTS MACRO M1113 07-FEB-64 10:58 
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SEQ 151 



2691 
2692 
2693 
2694 
2695 
2696 
2697 
2696 



I TEST 10 SUBTEST 4 

ICMECKS THAT THE REGISTER MODIFICATION REFUSED (RMR) BIT IN 
I THE TSSR UILL BE SET IF A URITE CHARACTERISTICS COMMAND 
•BEING EXECUTED AND ANOTHER "UC" COMMAND IS ATTEMPTED 
I 

I - 





042046 
042046 


104402 










2900 














2901 


042050 


004737 


043220* 






JSR 














ICO 
•/an 


P903 






AOOAAA 
www 








2904 






AA9Y1 A' 






MAW 

nuv 




fWIP07P 


01970Y 


AA9YS9' 






MAW 

nuv 




0AP07ft 


0197iM 


A0001 A 


AOAAAA 




MAW 

nuv 


9907 




VAC * 


00A01 A 
wwxv 


AAAAAA 




MAW 

nuv 


94AA 


V^el AS 








3* : 






OA91 19 
OA91 19 










BGNSEG 




AA91 1 A 




Am&AA' 

VX90U^ 






ICO 


2911 


M919A 










ore 




AA91 99 










nuv 


2916 


OA91 9A 
AA91 
AA91 9<L 
OA91 V) 












2917 


OA91 




AA333A< 




t AA . 


/*l O 


2916 


OA91 










/*l D 








A/W\/V\ 






MOV 














MOV 




OA91 ^ 


AAA7X7 








ICO 
JaH 


2922 


042160 


016501 


000002 






MOV 


2923 


042164 


032701 


0OO2OO 






BIT 
ox 1 


2924 


042170 


001006 








BNE 


2926 


042172 










ERROF 




042172 


104455 










042174 


002010 












042176 


042650' 












042200 


011656' 










2929 


042202 


005237 


002220' 






INC 


2930 


042206 








151: 


CKLOOP 




042206 


104406 






2931 


042210 










ESCAPE 




042210 


104410 










042212 


000056 










2932 


042214 


005737 


002222' 






TST 


2933 


042220 


001004 








BNE 


2934 












2935 














2939 


042222 
042222 


104456 








ERRHRD 



PC.T10RT2 
PC.TIORST 
«PRIOO 



♦T10PACKET.R4 
♦T10PKT,R3 
•8..PKBCNT(R4) 
•6..PKBCNT(R3) 



PC.SOFINIT 

101 

RO.Rl 

ERRNO . SFIERR . SF IMSG 



FATFLG 

INTRECV 

R4.TS0B(R5) 

R3.TS0B(R5) 

PC.UAITF 

TSSR(R5).R1 

•SSR.Rl 

15* 

ERRNO . T lOSSR . PK T SSR 



FATFLG 



INTRECV 
22« 



ERRHRD ERRNO. TIONINT.PK TSSR 



I //////////// BEGIN SUBTEST //////////// 
T10.4: 

TRAP CIBSUB 

tSET SECOND PACKET UP 

tSET PACKET TO INITIAL VALUES 

iLOUER PRIORITY TO ALLOW INTERRUPTS 

MOV tPRlOO.RO 
TRAP CfSPRI 
(GET THE ADDRESS OF COMMAND PACKET 
tGET THE ADDRESS OF 2ND CMD PACKET 
I START WITH MINIMUM ALLOWABLE VALUE 
i START WITH MINIMUM ALLOWABLE VALUE 



,>>>>>>>>>>>> BEGIN SEGMENT >>> 

TRAP 

{00 SOFT INIT OF CONTRXLER 

iBR IF SOFT INIT - OK 

I SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

(CLEAR FATAL ERROR FLAG 

iCLEAR INTERRUPT RECEIVED FLAG 

tSET THE PACKET ADDRESS 

(SECOND COMMAND PACKET 

(WAIT FOR SSR TO SET 

(GET CONTENTS OF TSSR REGISTER 

(CHECK FOR SSR (TSSR) SET 

(BR. IF SSR SET (GOOD) 

(DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

(SET FATAL ERROR FLAG 
(LOOP ON ERROR. IF FLAG SET 

TRAP 

(BY -PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 

(DID AN INTERRUPT OCCUR ? 
(BRANCH IF YES 



TRAP 



>>>>>>>>> 
CIBSEG 



CIERDF 
1031 
SFIERR 
SFIMSG 



CIEROF 
1032 
TIOSSR 
PKTSSR 



C»CLP1 

C»ESCAPE 
lOOOOt • . 



CiERHRD 



J12 
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042224 


002011 










042226 


042737' 










042230 


011656- 








2940 


042232 


016501 


000002 


22$: MOV 


TSSRCR5).R1 


2941 


042236 


012702 


110200 


MOV 


«SSR!RMR!SC.R2 


2942 


042242 


032701 


000100 


BIT 


♦OFL.Rl 


2943 


042246 


001402 




BEQ 


25* 


2944 


042250 


052702 


000100 


BIS 


♦0FL.R2 


2945 


042254 


020201 




25»: CMP 


R2.R1 


2946 


042256 


001404 




BEQ 


301 


2950 


042260 
042260 
042262 
042264 
042266 


104456 

002012 

042650' 

011656' 




ERRHRO 


ERRNO.TIOSSR.PKTSSR 


2951 


042270 






301: 




2952 


042270 
042270 
042270 


104405 




ENOSEG 




2953 


042272 
042272 
042272 


104403 




ENOSUB 




2954 


042274 
042274 
042276 


104432 
000774 




EXIT 


TST 


2955 












2956 








1 ♦ 




2957 








iLOCAL STORAGE 


FOR THIS TEST 


2956 








1 - 




2959 












2961 


042300 






.BLKB 


10-<.-TSV2fi7> 


2963 


042310 






TIOPACKET: 




2964 


042310 


100204 




.WORD 


100204 


2965 


042312 


042320' 




.WORD 


TIOOATA 


2966 


042314 


000000 




.WORD 


0 


2967 


042316 


000010 




.WORD 


8. 


2960 












2969 


042320 






TIOOATA: 




2970 


042320 


042332' 




.UORO 


TIOBFR 


2971 


042322 


000000 




.WORD 


0 


2972 


042324 


000016 




.UORO 


14. 


2973 


042326 


000000 


000000 


.UORO 


0.0 


2974 










2975 


042332 






TIOBFR: .BLKU 


6. 


2976 










2977 








1 ♦ 




«9fO 












2979 








Itest data for 


SUBTEST FOUR 


2960 












2961 


042352 






TIOPKT: 




2962 


C4*552 


100204 




.UORD 


100204 


2963 


04235*; 


042362' 




.WORD 


TIOOTA 


29S4 


042356 


000000 




.WORD 


0 


2965 


042360 


000010 




.WORD 


6. 


2986 












2987 


042362 






TIODTA: 




2966 


042362 


042374' 




.WORD 


TIOBUFR 



SEQ 152 



.WORD 1033 
.WORD TIONINT 
.WORD PKTSSR 

jGET THE CONTENTS OF TSSR 

lEXPECTED CONTENTS OF TSSR 

lis OFF-LINE BIT SET ? 

{BRANCH IF NOT OFF-LINE 

J SET OFF-LINE IN EXPECTED DATA 

I DOES EXPECTED MATCH RECEIVED ? 

(OKAY IF MATCH 

(NBA NOT ZERO 

TRAP C«ERMRO 
.WORD 1034 
.WORD TIOSSR 
.WORD PKTSSR 

!<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<< 
10000*: 

TRAP C«ESEG 
END SUBTEST //////////// 
L 10101: 

TRAP CtESUB 

(ALL DONE WITH THIS TEST 

TRAP CtEXIT 
.WORD L 10075 - 



t COMMAND PACKET FOR TEST 

I WRITE CHAR COMMAND. WITH IE. ACK 

t ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 

(CHARACTERISTICS DATA BLOCK 
(ADDRESS OF MESSAGE BUFFER 

(LENGTH OF MESSAGE BUFFER 
(MESSAGE BUFFER 



{COMMAND PACKET FOR TEST 

{WRITE CHAR COMMAND. WITH IE. ACK 

(ADDRESS OF CHARACTERISTICS BLOCK 

(STARTING VALUE OF BLOCK SIZE 

{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 



TSV5A - HARDWARE TESTS 
TEST 10; BASIC PACKET PRO 



K12 



07 -FEB 64 10:58 



SEQ 153 



042414 


115 


145 


163 


TIOMBF: 


.ASCIZ 


042511 


116 


102 


101 


TIONBA: 


.ASCIZ 


042573 


116 


102 


101 


TIONNBA: 




042650 


103 


157 


156 


TIOSSR: 


.ASCIZ 


042737 


105 


170 


160 


TIONINT: 




043030 


125 


156 


145 


TIOINT: 


.ASCIZ 


043117 


102 


141 


163 


TSTIOIO: 





2969 042364 

2990 042366 

2991 042370 
2992 

2993 042374 
2994 
2995 
2996 
2997 
2996 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3006 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3016 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3026 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 



000000 
000016 

000000 000000 



.WORD 0 
.WORD 14. 
.WORD 0.0 



TIOBUFR: .BLKU 



t ♦ 



I LENGTH or MESSAGE BUFFER 



I MESSAGE BUFFER 



I LOCAL TEXT MESSAGES FOR TEST 
I - 



.EVEN 



'Message Buffsr Modifisd aftsr MESSAGE BUFFER RELEASE Comiwnd' 

'NBA Not Clsar After URITE CHARACTERISTICS Commmxf 

.ASCIZ NBA Set After MESSAGE BUFFER RELEASE Co«MMnd' 

•Contents of TSSR Incorrect After URITE CHARACTERISTICS' 

.ASCIZ 'Expected Interrupt Not Received On URITE CHARACTERISTICS' 

•Unexpected Interrupt Received On URITE CHARACTERISTICS' 

.ASCIZ 'Basic Packet Protocol' 



i ♦ 

iROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
i 

I - 



043146 






TIORST: 






043146 






SAVREG 




J SAVE THE REGISTERS 


043152 


012701 


042310' 


MOV 


♦TlOPACKET.Rl 


1 START OF THE PACKET 


043156 


012721 


100204 


MOV 


•100204. (Rl)» 


i URITE CHARACTERISTICS UITH ACK. 


043162 


012721 


042320' 


MOV 


«T100ATA.(R1)» 


i ADDRESS OF CHAR DATA BLOCK 


043166 


005021 




CLR 


(Rl)» 


{EXTENDED ADDRESS 


043170 


012721 


000010 


MOV 


♦8..(R1)» 


iSIZE OF DATA BLOCK IN BYTES 


043174 


012721 


042332' 


MOV 


♦TIOBFR.CRD* 


1 ADDRESS OF MESSAGE BUFFER 


043200 


005021 




CLR 


(RD* 




043202 


012721 


000016 


MOV 


♦14. .(Rl)» 


1 LENGTH OF MESSAGE BUFFER 


043206 


005021 




CLR 


(RD* 




043210 


005011 




CLR 


(Rl) 




043212 


005037 


042332' 


CLR 


TIOBFR 


t CLEAR 1ST LO' IN MESSAGE BUFFER 


043216 


000207 




RTS 


PC 


{RETURN 



IE 



ROUTINE TO RESTORE COMMAND PACKET •2 TO START-UP (DEFAULT) VALUES 



3037 


043220 






T10RT2: 




3036 


043220 






SAVREG 




3039 


043224 


012701 


042352' 


MOV 


♦TlOPKT.Rl 


3040 


043230 


012721 


100204 


MOV 


♦100204, (Rl)« 


3041 


043234 


012721 


042362' 


MOV 


♦T10DTA,(R1)» 


3042 


043240 


005021 




CLR 


(RD* 


3043 


045242 


012721 


000010 


MOV 


♦6. .(Rl)» 


3044 


043246 


012721 


042374' 


MOV 


♦TIOBUFR. (Rl)» 


3045 


043252 


005021 




CLR 


(Rl)» 



I SAVE THE REGISTERS 

I START OF THE PACKET 

lURITE CHARACTERISTICS UITH ACK. 

{ADDRESS OF CHAR DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

{APORESS OF MESSAGE BUFFER 



IE 



L12 



TSVSA • HARDWARE TESTS MACRO M1113 
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07 FEB -84 10 :5a 



SEQ 154 



5046 
3047 
3048 
3049 
3050 
3051 



3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 

5070 
3071 
3072 
3073 
3074 



3075 
5076 



5077 
5078 
5082 
5085 



5084 
5085 
5086 
5087 
5091 



3092 
5095 
5094 
5095 
5096 



045254 
045260 
045262 
045264 

045270 
045272 
045272 
045272 



045274 
045274 
045274 
045500 
045504 
045512 
045512 
045512 
045512 

045514 
045514 
045520 
045522 
045526 
045550 
045552 
045552 
045554 
045556 
045540 
045342 
045342 
045346 
045552 
045554 
045554 
045556 
045360 
045562 
045564 
045564 
045570 
045574 
045574 
045574 



012721 000016 

005021 

005011 

005057 042574' 
000207 



104401 



MOV «14..(R1)* 

CLR (RD* 

CLR (Rl) 

CLR TIOBUFR 

RTS PC 
ENOTST 



(LENGTH or MESSAGE BUFFER 



(CLEAR 1ST LOC IN MESSAGE BUFFER 
I RE TURN 



L 10075: 



TRAP 



C9ETST 



.SBTTL TEST 11: NON-TAPE MOTION COMMANDS 



t ♦ 



J THIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE 
(COMMAND. TWO SUBTESTS ARE USED. THE FIRST VERIFIES THAT 
(THE COMMAND RUNS TO COMPLETION AND STORES A VALID 
(MESSAGE PACKET. THE SECOND VERIFIES THAT NON-ZERO 
(VALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT. 
( 

( - 



012700 045502' 
004757 016322' 
012757 000024 002214' 



TllLOOP: 



BGNTST 

MOV 
JSR 
MOV 

BGNSUB 



♦tstiiid.ro 
pc.tstsetup 

«20. .LOOPCNT 



104402 



012700 
104441 
004757 
105405 
010001 

104455 
002115 
005644' 
011644' 

012704 
004757 
105404 

104456 

002116 

005050' 

011644* 

004757 
012704 



104404 



000000 
015604' 



SETPRI «PRIOO 



Til: : 

(ASCII MESSAGE TO lOE.CTIFY TEST 
(00 INITIAL TEST SETUP 
(PERFORM 20 ITERATIONS 

{//////////// BEGIN SUBTEST //////////// 
Tll.l: 

TRAP C«BSUB 
(LOUER PRIORITY TO ALLOW INTERRUPTS 



044550' 
010472' 



51: 



045554' 
044460' 



4t: 
5t: 



JSR 
BCS 
MOV 
ERRDF 



MOV 
JSR 
BCS 

ERRHRD 



JSR 
MOV 

BGNSEG 



PC.SOFINIT 
5» 

RO.Rl 

ERRNO . SF lERR . SF IMSG 



♦T11PK2.R4 

PC.URTCHR 

4$ 

ERRNO . UR TMSG . SF IMSG 



PC.TllREST 
•T11PACKET.R4 



MOV 
TRAP 

(DO SOFT INIT OF CONTROLLER 

(BR IF SOFT INIT - OK 

(SAVE CONTENTS OF TSSR 

(DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

(WRITE CHARACTERISTICS PACKET 
(ISSUE WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



«PRIOO.RO 
CtSPRI 



C«ERDF 
1101 
SFIERR 
SFIMSG 



CIERHRD 
1102 
WRTMSG 
SFIMSG 



(SET UP PACKET FOR COMMAND 

(GET THE ADDRESS OF COMMAND PACKET 

{>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CIBSEG 



M12 

TSV5A - MARDMARE TESTS MACRO M1113 07 -FEB -84 10:58 SEQ 155 

TEST 11: NON-TAPE MOTION COmANDS 



XAQ7 




















to 




AAOOOO* 
UwcccU 


lot • 
xu» : 




PATPI t\ 

r H 1 r 


■ n FAD CATAI FDOnO FI AC 
















Iri 1 ncL V 


.n FAD TUTFDDI AT DFCFTWFn FI A#* 
iLLcHn INICnNUr'l NcLtlVtU rLHu 










oooooo 




HOU 


R4 TCORfR^t 


•GFT TMF OAPKFT AOODFCC 




XI A1 




OrtA7T7 


01il14J>< 




ICQ 


or ruKTccR 

fir 1 1 33n 


■UATT FOB CCO TO CFT 
i MnX 1 r Urt 33M 1 U 3C 1 








XUd^Ur 








1 


• RR TF rADDv CFT rmfV\ DCTiDU^ 




XI ox 










I IWV 


RO R1 


, CAv/F rOMTFMTC OF TGCO 




XI 07 












FBRNH T11QQR PKTQ<U} 


• OFUTPF FATAI CCR FATI FO TO CFT 








1 n44^^ 










TRAO 


LltKur 






nA31 1 7 

Well • 










LI/)DA 
. MUnU 


% 1 AX 
IIUO 






n4^A34' 










. UORO 


Til ceo 






VXXw^v 










UODO 


Di^TCCO 


XI OA 






009990' 




TNT 


rATFI fi 
r 1 r 


iCFT FATAI FBB1B FI ATI 






V"» JO 






15t • 

XJ* • 


TKi nop 




<l nop ON FBRnB TF FI ATI CFT 


















TBAP 


PiPl PI 


XI 1 0 












www 


iBY-PACC CmTFCT TF FATAi FBBOB 








1 f>441 0 










TBAP 


r tFcrAPF 






<V>0074 
WW ' "f 










UODO 


1 AOOOt . 


<9X X X 




OOS757 


wcccc 




T5T 


xn 1 nk(* w 


<nTn AM TMTFRRllPT OmiB 7 




SI IP 
xc 


045450 


001004 








22$ 


iRRAMPH TF VFC 














FRRHRD 


CRRNO TllNTMT PKT^^R 








OA 54 5? 


1044Vi 










TBAP 


rtFRMBO 






wcxcv 










UOBO 


1 1 04 
X XUH 






04^1 i^A' 












T1 1MTMT 






01 1#tSA' 










UOBO 


PKTCCB 


5117 




VXO JVX 


000009 
wwvc 


PPl • 

# > 


Mnu 


TQCRfRS') R1 


•HFT THF rnMTFMTC OF TQQB 








VXC 1 


000900 




Mnu 


4CCR R9 


(FyPFrTFO rOMTFMTC OF TCCB 






n45479 


wOC f VX 


0001 OO 

vwxw 




BTT 
DX 1 


AOFI R1 
wur L • nx 


1 TC OFF.I TMF RTT CFT 7 
1 13 ur r -Line Dl 1 3C 1 • 




51 


rO 


nAi4n3 

WX^VC 






DCU 




• RRAMTM TF MOT OFF.I TMF 
t Dv^nncn ir nui -Line 




5151 




rt^37fta 


0001 OO 




D19 


40FI B3 


•CFT OFF.I TMF TM FyPEPTFO OATA 
1 SC 1 Urr-Linc in CKrCLICU UHIH 






nA5<^()4 


03A301 
vcvcvl 




: 


PMP 


R3 R1 
nc • nl 


•OOFC FyPFTTFO MATPM PFTFTUFO 7 

SUUC3 CAfCLicu nn 1 nCLcxvcu • 




51P5 




nni 4n4 








xot 


•OKAY TF MATPM 
SUivnT ir nn 1 i.ri 




S127 












FBBNn T11MRA PWT<i<D 


•MR A MOT 7FBO 






JXV 


1 n44<^ 










TRAP 


PtFOUOn 

L vcftnNu 




045^19 

w*tw^XC 


nn9i 91 

wcxcx 










UORO 


1 io^ 

11U9 






A44^73' 










.WORD 


TllNBA 






M 1<l^' 
VX1D3D 










.WORD 


PKTSSR 


XI PA 








xot . 










wXC ' 




0047X7 
W^ f O f 


01073A' 
UXw r 




ICR 


or rifBAH 


i CHECK RAM TO HEHORY 




5150 




1 0540^ 






Rrc 




:RAM OK GO ON 




S1S4 

«#X^^ 


0455?6 








Cfffrlrlnu 


FBBMO PKTRAH BAMFBD 


{THEY DON'T MATCH 








1 044^ 










TRAP 


OERHRD 




045S5A 


0031 33 










.UORO 


1106 




045S59 


004757' 










.UORO 


PKTRAM 




045554 












.UORO 


RAMERR 


5155 














•<<<<<<<<<<<<< END SEGMENT <*<<<<<<<<<<< 




043536 












10000): 






043536 


104405 










TRAP 


OESEG 


3136 


















3137 


















3138 


043540 






59$: 


ENDSUB 




s\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 




043540 












L 10103: 






043540 


104403 










TRAP 


OESUB 


3139 


















3140 


043542 


005737 


002220' 




TST 


FATFLG 


5 ANY FATAL ERRORS ? 




3141 


043546 


001402 






BEQ 


60) 


{BRANCH IF NOT 




3142 


043550 


004737 


017014' 




JSR 


PC.CKOROP 


J TRY TO DROP THE UNIT 
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3143 


043554 






3144 








3145 








3146 








3147 








3146 








3149 








3150 








3151 








3152 








3153 








3154 


043554 








043554 








043554 


104402 




3155 








3156 


043556 








043556 


012700 


000000 




043562 


104441 




3157 


043564 








043564 


104404 




3156 








3159 








3160 


043566 


004737 


015604 


3161 


043572 


103405 




3165 


043574 


010001 




3166 


043576 








043576 


104455 






043600 


002123 






043602 


003644' 






043604 


011644' 




3167 


043606 






3166 


043606 


012704 


044530 


3169 


043612 


004737 


010472 


3170 


043616 


103404 




3174 


043620 








043620 


104456 






043622 


002124 






043624 


005050' 






043626 


011644' 




3175 


043630 






3176 


043630 


004737 


045334 


3177 


043634 


012704 


044460 


3176 


043640 






3179 


043640 


005037 


002222 


3160 


043644 


052714 


007400 


3161 


043650 


010465 


000000 


3162 


043654 


004737 


016146 


3163 


043660 


103405 




3184 


043662 


010001 




3166 


043664 








043664 


104455 






043666 


002125 






043670 


045024' 






043672 


011656' 




3189 


043674 








043674 


104406 




3190 


043676 







FEB-84 10:58 



N12 



SEQ 156 



60$: 



TEST 11, SUBTEST 2 

CHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 
INITIALIZE COMMAND TO BE REJECTED 



BGNSUB 

SETPRI OPRIOO 
BGNSEG 



;//////////// BEGIN SUBTEST //////////// 
Til. 2: 

TRAP OBSUB 

iLOUER PRIORITY TO ALLOW INTERRUPTS 

MOV «PRIOO.RO 
TRAP C$SPRI 

•>>>>>>>>>>>> BEGIN SEGMENT »>>>>>>>>>>> 

TRAP CtBSEG 



3$: 



4(: 



5$: 
10<: 



1S(: 



JSR PC.SOFINIT 

BCS St 

MOV RO.Rl 

ERRDF ERRNO . SF lERR . SFIMSG 



MOV •T11PK2.R4 

JSR PC.URTCHR 

BCS 4$ 

ERRHRO ERRNO, URTMSG. SFIMSG 



JSR PC.TllREST 

MOV ♦T11PACKET.R4 

CLR INTRECV 

BIS OP. MODE, (R4) 

MOV R4.TSD6CR5) 

JSR PC.CHKTSSR 

BCS 15» 

MOV RO.Rl 

ERRDF ERRNO. TllSSR.PKTSSR 



CKLOOP 
ESCAPE SEG 



tOO SOFT INIT OF CONTROLLER 

sBR IF SOFT INIT - OK 

sSAVE CONTENTS OF TSSR 

t DEVICE FATAL ERROR DURING INIT 

TRAP CIERDF 
.WORD 1107 
.WORD SFIERR 
.WORD SFIMSG 

tM^ITE CHARACTERISTICS PACKET 

: ISSUE WRITE CHARACTERISTICS 

:BR. IF COMMAND ISSUED OK 

I WRITE CHARACTERISTISC FAILED 

TRAP C$ERHRD 
.WORD 1108 
.WORD WRTMSG 
.WORD SFIMSG 

J SET UP PACKET FOR COMMAND 

sGET THE ADDRESS OF COMMAND PACKET 



I CLEAR INTERRUPT RECEIVED FLAG 
t NON-ZERO COMMAND MODE BITS 
tSET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
:BR IF CARRY SET (GOOD RETURN) 
J SAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 

TRAP 



.WORD 
.WORD 
.WORD 

sLOOP ON ERROR. IF FLAG SET 

TRAP 

sBY-PASS CHECKS IF FATAL ERROR 



OERDF 
1109 
TllSSR 
PKTSSR 

C»CLP1 



TSV5A - HAROtMftC TESTS MACRO MHIS 
TEST 11: NON-TAPE NOTION CO»tMNOS 



3m 

3192 
3196 



3197 
S196 
3199 
S200 
S201 
3202 
5205 
5207 



5206 
5209 
5210 
5214 



5215 



5216 
5217 



5218 
5219 
5220 
5221 
5222 
5225 
5224 
5225 
5226 
5227 



5226 
5229 



5250 

5251 
5252 
5256 



045676 
045700 
045702 
045706 
045710 
045710 
045712 
045714 
045716 
045720 
045724 
045750 
045754 
045756 
045742 
045744 
045746 
045746 
045750 
043752 
045754 
045756 
043756 
045762 
045764 
045764 
045766 
045770 
045772 
045774 
045774 
045774 

045776 
045776 
045776 



044000 
044000 
044000 

044002 
044002 
044006 
044010 
044010 
044012 
044016 
044020 



104410 
000074 
005757 
001004 

104456 

002126 

045154* 

011656' 

016501 

012/02 

052701 

001402 

052702 

020201 

001404 

104456 

002127 

044652' 

011656' 

004757 
103405 

104456 

002150 

004757- 

015520' 



104405 



104405 



002222' 



000002 
100206 
000100 

000100 



010724' 



104402 



012700 000000 
104441 

104404 

004757 015604' 

105405 

010001 



-FEB 64 10:58 



B13 



SEQ 157 



TST INTRtCV 
BNE 22 ( 

ERRHRD ERRNO.TllNINT.PKTSSf) 



22t: NOV TSSR(R5).R1 

NOV •SC!SSR!TSREJ.R2 

BIT tOFL.Rl 

BEQ 251 

BIS «0rL.R2 

25»: CMP R2.R1 

BEQ 50* 

ERRHRD ERRN0.T112REJ.PKTSSR 



501: 
551: 



JSR PC.CKRAM 
BCS 59* 

ERRHRO ERRNO.PKTRAH.RAHERR 



ENOSEG 



591: ENDSUB 



I DID AN INTERRUPT OCCUR 
I BRANCH IF YES 



TRAP 
.UORO 

7 



CIESCAPE 
100001 . 



TRAP CtER»««) 
.WORD 1110 
.WORD TllNINT 
.MCRO PKTSSR 

iGET THE CONTENTS OF TSSR 

•EXPECTED CONTENTS OF TSSR 

lis OFF-LINE BIT SET ? 

•BRANCH IF NOT OFF-LINE 

iSET OFF-LINE IN EXPECTED DATA 

lOOES EXPECTED MATCH RECEIVED ? 

I OKAY IF MATCH 

I COMMAND NOT REJECTED 

TRAP CtERHRD 
.WORD 1111 
.UORD T112RE^ 
.yORD PKTSSR 

(CHECK RAM TO MEMORY 

iRAM OK GO ON 

I THEY DON'T MATCH 

TRAP CIERHRO 
.WORD 1112 
.UORD PKTRAM 
.WORD RAMERR 
!<<<<<<<<<<<<< END SEGMEN i <<<<<<<<<<<<< 
100001: 

TRAP CIESEG 

END SUBTEST WNNWWWWN 
L10104: 

TRAP CIESUB 



TEST 11. SUBTEST 5 

CHECK THAT THE GET STATUS COMMAND IS ACCEPTED 



BGNSUB 



SETPRI APRIOO 



BGNSEG 

JSR PC.SOFINIT 

BCS 31 

MOV RO.Rl 



I //////////// BEGIN SUBTEST //////////// 
T11.5t 

TRAP CIBSUe 

iLOUER PRIORITY TO ALLOH INTERRUPTS 

MOV tPRIOO.RO 
TRAP C«SPRI 

!>>>>>>>>>>>> BEGIN SEGMENT »>>>>>>>>>>> 

TRAP CIBSEG 
I 00 SOFT INIT OF CONTROLLER 
iBR IF SOFT INIT - OK 
(SAVE CONTENTS OF TSSR 



Ci3 













EHRNO • Sr ItnH , Sr inSo 


nf k(T/^c CAVA! pnn/NA f^i t ▼ & > t v 

iDEvICE FATAL ERROR DURING INIi 






1 MKK 










TB AB 

TRAP 


C»ERDF 




AA91 %t 










. HUffU 


1 1 1 X 


0440«0 


003o44 










.WORD 


C* P T P BB 

SFIERh 




A1 1 iiAA > 
WHO** 










I WUHU 










xt • 










0#40K 


Ol2 r04 






nuv 


ATI 1 Dir9 BA 


lURITE CHARACTERISTICS PACKET 






AAA7V7 






ICO 




1 ISSUE WRITE CHARACTERISTICS 






1 A'MAA 










iBR. If COmAND ISSUED OK 














FRBMA URTMCR QFTM^r. 


lURITE CHARACTERISTISC FAILED 




AAA 044 


tOAA^ 










TRAP 


CtERHRD 


OA4AA<l 


AA9t ^ 










.WORD 


1114 


AAAA^A 


AASA^A' 










.UORO 


URTMSG 


AAA0^3 


A1 1<>AA< 










.UORO 


SFIMSG 


V9A41 <MAAS4 






At > 










X9A7 AAAOSA 


AAA7Y7 






ICR 


f 1 iinc9 1 


iSET UP PACKET FOR COMMAND 






A19704 


w 






•TllPACKET R4 


t GET THE ADDRESS OF COMMAND PACKET 


UAQ 044M4 
















a44M4 






lot • 




INTRECV 


iCLEAR INTERRUPT RECEIVED FLAG 




AAAA70 


At AAftS 








QA T^OBfRS) 


tSET THE PACKET ADDRESS 




X^KS AAA07A 


AAA7X7 


Atftt Aft' 






pr thkt^^b 


tUAIT FOR SSR TO SET 




AAA t AA 


t A^A^ 








1 St 


tBR tr CARRY SET (GOOD RETURN') 




X3<(A AAA t A9 


At AAAt 








RA Bt 
"V t ~l 


i^AVE CONTENTS OF TSSR 




AAA t AA 










FBMm T11CB9 BWTCCB 


iDEVlCE FATAL FAILED TO SET 




AAA t AA 


1 AAA^S 
1V^^39 










TRAP 


CtERDT 


AAAt A<L 


AA9t XX 










MQRO 


Ills 


AAAt 1 A 


AASl AA' 










WORD 


T11SR2 


AAAt 1 9 


At tll*Ul' 
VJL1090 










. WORD 




0*10 AAA 1 t A 






1 tt • 


tki nop 




iLOOP ON ERROR. IF FLAG SET 




AAA1 tA 


f AAA AH 










TRAP 


CICLPl 


AAAt t<l 












iBY-PASS SUBTEST IF FATAL ERROR 




AAAt tA 


t AAAt A 










TRAP 


CtESCAPE 


AAA 1 3A 

lew 


AAAA7A 
WWW/ f ^ 










.UORD 


lOOOOt-. 


%Pftt AAAt 99 


n/vKyxT 

W9 f 3 r 


AA9999> 




TCT 


iri 1 nCU V 


tDIO AN INTERRUPT OCCUR ? 




S969 AAAt 9ft 


AAt AAA 








991 


iBRANCH IF rES 




S9M A44t V) 
















AA4t Vi 


t AAA^ft 
1W^*90 










TRAP 


C«ER»«)D 


AAA t %0 


fM9t XA 










.UORO 


1116 


AAAt U 


AAKtKAi 
U^319* 










.UORO 


TllNINT 


AAAt XJl 


At 1ll<Uk> 










.UORD 


PKTSSR 


S9it7 AAA1AA 


Atft^At 
V109V1 


/W1AA9 


cc* : 


MAW 


TCCBTBS') Bt 


iGET THE CONTENTS OF TSSR 




S9M 04A1AA 

JCVQ ^^^^ 


At 97A9 
Vie rWc 


AAASAA 
VIUvCvV 




nuv 


ACCB D9 


•EXPECTED CONTENTS OF TSSR 




iPM AAAI^ 


AX97At 
V9c r Wl 


AAAt AA 
VAA/i W 




DTT 


AAITI B 1 


lis OFF-LINE BIT SET ? 




S970 AAAt^ 


AA1 AA9 








c9* 


iBRANCH IF NOT OFF-LINE 




S971 A44t<Uk 


A>(97A9 
V^C r Vc 


AAAt AA 




BTC 
Ol3 


♦0FL.R2 


iSET OFF-LINE IN EXPECTED DATA 




S272 044162 


020201 






CMP 


R2.R1 


lOOES EXPECTED MATCH RECEIVED ? 




S275 044164 


001404 






BEQ 


301 


lOKAY IF MATCH 




S277 044166 








ERRHRO 


ERRNO , T 1 1 5RE J . PK T SSR 


1 COMMAND NOT ACCEPTED 




044166 


104456 










TRAP 


C*ERHRD 


044170 


002155 










.UORO 


1117 


044172 


044715- 










.UORO 


T115REJ 


044174 


0116S6' 










.UORD 


PKTSSR 


5278 044176 






50t: 










5279 044176 


004757 


010724' 


551: 


JSR 


PC.CKRAM 


1 CHECK RAM TO MEMORY 




5260 044202 


105405 






BCS 


59$ 


,RAM OK GO ON 




5264 044204 








ERRHRO 


ERRNO . PKTRAM , RAMERR 


iTHEY DONT MATCH 




044204 


104456 








TQAP 


C*ERHRO 



D13 



5285 



3286 
5287 
5288 



5289 
5290 
5291 
5292 
5295 
5294 
5295 
5296 
5297 
5298 



044206 
044210 
044212 
044214 
044214 
044214 



044216 
044216 
044216 



002156 

004737- 

01SS20' 



104405 



104405 



07 -FEB 84 10.58 



ENOSEG 



59$: 



i ♦ 

i 



ENDSUB 



SEQ 159 



.WORD 1118 
.UORO PKTRAM 
.WORD RAMERR 
!<<<<<<<<<<<<< END SEGMENT <<<<«<<<««»<« 
100001: 

TRAP CIESEG 



iWWWWWVW END SLBTEST \\\\\\\\\\\\\ 
L 10105: 

TRAP CIESU8 



iTEST 11. SUBTEST 4 

isUBTEST TO VERIFY THAT A GEl STATUS COMnAND IS 
iREJECTEO IF A NON-ZERO COMnAND MODE FIELD IS USED 



5299 


044220 








044220 








044220 


104402 




5500 








5S01 


044222 








044222 


012700 


000000 




04422^ 


104441 




5502 


044250 








044250 


104404 




5505 


044252 


004757 


015604 


5504 


044236 


105405 


S508 


044240 


010001 




5509 


044242 








044242 


104455 






044244 


002157 






044246 


005644* 






044250 


011644' 




5510 


044252 






3511 


044252 


012704 


044530 


3512 


044256 


004757 


010472 


5515 


044262 


105404 




5517 


044264 








044264 


104456 






044266 


002140 






044270 


OOSOSO' 






044272 


011644* 




3318 


044274 






5519 


044274 


004757 


045334 


5520 


044500 


012704 


044460 


5521 


044504 






5522 


044504 


005037 


002222 


3525 


044510 


052714 


007000 


5524 


044514 


010465 


000000 


5325 


044520 


004737 


016146 


3326 


044524 


105405 




3527 


044326 


010001 





BGNSUB 



SETPRI 4PRI00 



5$! 



4$: 



5(: 
10»: 



BGNSEG 

JSR 
BCS 
MOV 
ERRDF 



MOV 
JSR 
BCS 
ERRHRO 



JSR 
MOV 

CLR 
BIS 
MOV 
JSR 
BCS 
MOV 



PC.SOFINIT 
51 

RO.Rl 

ERRNO . SF lERR . SF IMSG 



♦T11PK2,R4 

PC.URTCHR 

4$ 

ERRNO . UR TMSG . SF IMSG 



PCTllREST 
4rilPACKET.R4 

INTRECV 

•007000. (R4) 

R4.TSDB(R5) 

PC.CMKTSSR 

151 

RO.Rl 



,//////////// BEGIN SUBTEST //////////// 
Til. 4: 

TRAP CIBSUB 

iLOUER PRIORITY TO ALLOW INTERRUPTS 

MOV •PRIOO.RO 
TRAP CISPRI 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CIBSEG 

;D0 SOFT INIT OF CONTRXLER 

iBR IF SOFT INIT - OK 

tSAVE CONTENTS OF TSSR 

(DEVICE FATAL ERROR DURING INIT 

TRAP CIEROF 
.WORD 1119 
.WORD SFIERR 
.UORO SFIMSG 

lURITE CHARACTERISTICS PACKET 

I ISSUE URITE CHARACTERISTICS 

iBR. IF COMMAND ISSUED OK 

iWRITE CHARACTERISTISC FAILED 

TRAP CIERHRD 
.UORO 1120 
.UORD URTMSG 
.UORO SFIMSG 

I SET UP PACKET FOR COMMAND 

I GET THE ADDRESS OF COMMAND PACKET 

I CLEAR INTERRUPT RECEIVED FLAG 

I SET TO NON-ZERO MODE 

I SET THE PACKET ADDRESS 

lUAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

I SAVE CONTENTS OF TSSR 



TSV5A ■ HARDWARE TESTS M/^RO H1113 
TEST 11: NON-TAPE rtOTION COMHANDS 



5531 

SS52 
5535 



3354 

3335 
3539 



3540 
5541 
5542 
5545 
5544 
5545 
5546 
5550 



5551 
5552 
5555 
5554 
5356 



5559 
5560 



S561 



3362 
3565 



5364 
5365 
3566 
5567 
5368 
3370 
5572 
5573 



044530 
044330 
044352 
044534 
044356 
044340 
044340 
044342 
044342 
044544 
044346 
044352 
044354 
044554 
044356 
044360 
044562 
044364 
044370 
044374 
044400 
044402 
044406 
044410 
044412 
044412 
044414 
044416 
044420 
044422 

044422 
044426 
044430 
044450 
044432 
044434 
044436 
044440 
044440 
044440 
044440 
044442 
044442 
044442 

044444 
044444 
044446 



044450 
044460 
044460 



104455 
002141 
045100' 
011656' 

104406 

104410 

000076 

005737 002222' 
001004 

104456 
002142 
045154' 

011656' 

016501 000002 
012702 100206 
032701 000100 
001402 

052702 000100 

020201 

001404 

104456 
002143 
044743' 

011656' 



004737 010724* 
105404 

104456 
002144 
004737' 
015320* 



104405 
104403 



104452 

000772 



10U204 



-FEB '84 10:58 



E13 



SEQ 160 



15* : 



221 i 



2St: 



301: 
351: 



591: 



ERROT ERRN0.T11SR2.PKTSSR 

CKLOOP 
ESCAPE SUB 



TST INTRECV 
BNE 22* 

ERRHRO ERRN0.711NINT.PKTSSR 



nOV TSSR(R5).R1 

nOV *SC!SSR!TSREJ.R2 

BIT •OFL.Rl 

BEQ 25 t 

BIS •0FL.R2 

CMP R2.R1 

BEQ SO) 

ERRHRO ERRN0.T114REJ.PKTSSR 



JSR PC.CKRAn 
BCS S9t 

ERRHRO ERRNO.PKTRAH.RAnERR 



ENOSEG 



ENOSUB 



EXIT TST 



iDEVlCE FATAL SSR FAILED TO SET 

TRAP CIEROF 
.WORD 1121 
.UCRO T11SR2 
.UORD PKTSSR 

iLOOP ON ERROR. IF FLAG SET 

TRAP CtCLPl 

iBYPASS SUBTEST IF FATAL ERROR 

TRAP C (ESCAPE 
.UORD L10106-. 

I DID AN INTERRUPT OCCUR ? 

I BRANCH IF YES 

TRAP CIERHRD 
.UORD 1122 
.UORD TllNINT 
.UORO PKTSSR 

I GET THE CONTENTS OF TSSP 

tEXPECTED CONTENTS OF TSSR 

lis OFF-LINE BIT SET ? 

iBRANCH IF NOT OFF-LINE 

tSET OFF-LINE IN EXPECTED DATA 

lOOES EXPECTED MATCH RECEIVED ? 

I OKAY IF HATCH 

tCOMHANO NOT REJECTED 

TRAP CIERHRO 
.UORD 1125 
.UORD T114REJ 
.UORD PKTSSR 



(CHECK RAH TO MEMORY 

tRAM OK GO ON 

I THEY DON'T MATCH 

TRAP C»ER»«0 

.UORD 1124 

.UORD PKTRAM 

•UORD RAMCRR 

i<<<<<<«<<<<(< END SEGMENT <<<€<<€<<<< 
lOOOOS: 

TRAP CIESEG 

END SUBTEST \\\\\\\\\\\\\ 
L10106: 

TRAP CIESUB 



I ALL DONE THIS TEST 



TRAP 
.UORD 



CIEXIT 
L 10102 -. 



'(LOCAL STORAGE FOR THIS TEST 



.BLKB lO-<. -TSV267> 
TllPACKET: 

.UORD 100204 



I COMMAND PACKET FOR TEST 

lURITE CHAR COMMAND. UlTH IE. ACK 



Fi3 



TSV5A - HAROUARE TESTS HACW Mm 5 
TEST U. NON-TAPE HOTION COMMANDS 



07 -FEB -84 10:58 



161 



5574 
5575 
5576 
5577 
5578 
5579 
5580 
5381 
5582 
5585 
5584 
5S8S 
5586 
5588 
5590 
5591 
3592 
5593 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
5410 
5411 
5412 
3413 
3414 
5415 
5416 
5417 
5418 
5419 
5420 
5421 
5422 
3423 
5424 
3425 
5426 
5427 
5428 
5429 
5450 
5451 
5452 



044462 
044464 
044466 

044470 
044470 
044472 
044474 
044476 

044502 



044522 
044530 
044530 
044552 
044534 
044536 

044540 
044540 
044542 
044544 
044546 

044552 



044572 
044632 
044713 
044743 
045024 
045100 
045154 
045232 
045302 



045334 
045334 
045340 
045344 



044470' 

000000 
000010 



044502' 

000000 

000016 

000000 000000 



.WORD TllDATA 
.WORD 0 
.WORD 8. 



100204 
044540' 

000000 
000010 



044552' 

000000 

000016 

000000 000000 



TllDATA: 



.WORD 
.WORD 
.WORD 
.WORD 



TllBFR 
0 

14. 
0.0 



TllBFR: .BLKU «. 



T11PK2: 



TllDTA: 



.BLKB 10-<.-TSV2C7> 



.WORD 
.UORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 



100204 
TllOTA 
0 
8. 



TIIBF2 
0 

14. 

0.0 



I ADDRESS or CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZE 

iCHARACTERISTICS DATA BLOCK 
(ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 
(MESSAGE BUFFER 



(COMMAND PACKET FOR TEST 

(WRITE CHAR COMMAND. WITm IE. ACK 

(ADDRESS OF CHARACTERISTICS BLOCK 

(STARTING VALUE OF BLOCK SI7E 

(CHARACTERISTICS DATM BLOCK 
I ADDRESS OF MESSAGE BUFFER 

(LENGTH OF MESSAGE BUFFER 



TIIBF2: .BLKW 8. 



( ♦ 



(MESSAGE BUFFER 



(LXAL TEXT MESSAGES FOR TEST 



111 


116 


111 


TllNBA: 


.ASCIZ 


111 


116 


111 


T112REJ; 




107 


105 


124 


T113REJ: 




107 


105 


124 


T114REJ: 




103 


157 


156 


TllSSR: 


.ASCIZ 


105 


157 


156 


T11SR2: 


.ASCIZ 


105 


170 


160 


TllNINT: 




111 


156 


143 


T11TS8A: 




116 


157 


156 


TSTllID: 





.EVEN 



'INITIALIZE CoMMnd Not Accepted' 

.ASCIZ 'INITIALIZE Net R«J«ct«d With Non-Zcro Mode F:«ld' 
.ASCIZ 'GET STATUS Not Acc«pt«d' 

.ASCIZ 'GET STATUS Not R«J«ct«d With Non-Z«PO Mod* Fi«ld' 

'Contont* of TSSR Incorrect Aftor INITIALIZE' 

'Contonts of TSSR Ineorrmct Aftor GET STATUS* 

.ASCIZ 'Expoctod Intoppupt Not Rocoivod On INITIALIZE' 

.ASCIZ 'IncopPMt TS8A AddroM Aftor INITIALIZE- 

.ASCIZ 'Non-Tap* Motion Command*' 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
INITIALIZE COMMAND 



TllRESTi 



012701 044460' 
012721 100215 



SAVREG 

MOV 

MOV 



#T11PACKET.R1 
•100213. (RD* 



(SAVE THE REGISTERS 
(START OF THE PACKET 
(INITIALIZE WITH ACK. IE 



G13 



rsVSA HARDWARE TESTS MACRO MlllS 
TEST II: NON-TAPt riOTION COMMANDS 
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SEQ 16c 



545S 
S434 
5435 
3456 
3457 
3458 
5459 
5440 
5441 
5442 
5445 
5444 
5445 
5446 
5447 
5448 
5449 



045550 005021 

045552 005021 

045554 005021 

045556 005021 

045560 005021 

045562 005021 

045564 005021 

045566 005011 

045570 005057 044502' 

045574 000207 



CLR (RD* 

CLR (Rl)» 

CLR (RD* 

CLR (Rli* 

CLR (Rl)» 

CLR (RD* 

CLR (Rl)» 

CLR (Rl) 

CLR TllBFR 

RTS PC 



I ADDRESS OF CHAR DATA BLOCK 
I EXTENDED ADDRESS 
iSIZE OF DATA BLOCK IN BYTES 
; ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 



•CLEAR 1ST LOC IN MESSAGE BUFFER 
I RETURN 



ROUTINE TO RESTORE COnMANO PACKET TO START-UP (DEFAULT) VALUES 
GET STATUS COMMAND 



5450 


045576 






T11RT2: 






5451 


045576 






SAVREG 




iSAVE THE REGISTERS 


3452 


045402 


012701 


044460' 


NOV 


•TllPACKET.Rl 


•START OF THE PACKET 


5455 


045406 


012721 


100217 


MOV 


*100217.(R1)* 


•GET STATUS UITH ACK. IE 


3454 


045412 


005021 




CLR 


(RD* 


t ADDRESS OF CHAR DATA BLOCK 


5455 


045414 


005021 




CLR 


(RD* 


(EXTENDED ADDRESS 


3456 


045416 


005021 




CLR 


(RD* 


iSIZE OF DATA BLOCK IN BYTES 


5457 


045420 


005021 




CLR 


(RD* 


•ADDRESS OF MESSAGE BUFFER 


5458 


045422 


005021 




CLR 


(Rl)» 




S4S9 


045424 


005021 




CLR 


(RD* 


•LENGTH OF MESSAGE BUFFER 


5460 


045426 


005021 




CLR 


(RD* 




5461 


0454S0 


005011 




CLR 


(RD 




5462 


045452 


005057 


044502' 


CLR 


TllBFR 


•CLEAR 1ST LOC IN MESSAGE BUFFER 


5465 


045456 


000207 




RTS 


PC 


•RETURN 


3464 


045440 






ENDTST 








045440 










LL0102: 




045440 


104401 








TRAP 


S465 


045442 






ENOMOO 







C*ETST 



TSV6 
TEST 



H13 



PARAMETER COOING MACRO M11.13 
NON-TAPE MOTION COMMANDS 



11: 



07 FEB 84 10:58 



SEQ 16^ 



1 

7 

12 
16 

19 045442 
045442 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
50 
31 

32 045442 
045442 
045444 

S3 

34 045444 
045444 
045446 
045450 
045452 

35 045454 
045454 
045456 
045460 
045462 

36 

37 045464 
045464 



TSV6: 



TITLE TSV6 - PARAMETER COOING 



BGNNOO TSV6 



.SBTTL HARDWARE PARAMETER COOING SECTION 



J ♦♦ 

i 
t 
> 



THE HARDWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



000010 



000031 
045464' 

160010 
177776 

001031 
045520' 
000000 
000776 



LIHARO: : 



BGNHRD 

.WORD L1O1O7-LIHAR0/2 



GPRHA HPMl. 0,0. 160010. 177776. YES 

.WORD TICOOE 

.WORD HPMl 

.WORD TILOLIM 

.WORD TIHILIM 

GPRMA HPM2.2.0.0.776.YES 

.WORD TtCOOE 

.WORD HPM2 

.WORD TILXIH 

.WORD TIHILIM 

iGPRMO HPnS.4.0.340.0.7.YES 



(GET TSBA/TS06 REGISTER ADDRESS. 



sGET VECTOR ADDRESS. 



38 045464 


104 


105 


39 045520 


111 


116 


40 045544 


111 


116 


41 




42 






43 






44 






45 






46 






47 






48 






49 






50 






51 






52 






53 045574 







L 10107: 
126 HPMl: 
124 HPM2: 
124 HPMS: 



ENOHRO 
.EVEN 

.ASCIZ 'DEVICE ADDRESS (TSBA/TSOB) ' 
.ASCIZ 'INTERRUPT VECTOR 
.ASCIZ 'INTERRUPT PRIORITY 
.EVEN 

.SBTTL SOFTWARE PARAMETER CODING SECTION 



jGET INTERRUPT PRIORITY, 



THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS r^LLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



045574 
045576 

54 

55 045576 
045576 



000003 



001130 



LISOFT; 
I 



BGNSFT 

.WORD LlOllO-LtSOFT/2 

GPRML SPMl.O.-l.YES 
GPRML SPM4. 2,-1, YES 
.WORD TtCOOE 



I GET TRANSPORT TEST FLAG, 
t GET ITERATION CONTROL. 



113 



rsv6 PARArCTER COOING MACRO Ml 113 
SOFTWARE PARAMETER COOING SECTION 

045600 045634- 
045602 177777 

56 
57 

56 045604 
045604 

59 
60 

61 045604 105 116 

62 045654 111 116 
63 
64 

65 
66 
67 
60 
69 
70 
71 
72 
75 

74 045664 

75 
76 

77 045664 
78 
79 
80 
81 

82 045666 



07 FEB-84 10:58 



SEQ 164 



045666 
04S670 
045672 

85 045672 

64 

85 

66 

87 

88 045672 

89 045672 
045672 
045674 
045676 

90 045676 

91 045700 

92 045702 

93 045704 
045704 

94 045704 
95 

96 



000000 
000000 



000000 
000003 

172522 
000224 
000240 



000001 



.WORD SPM4 



LlOllO: 



101 SPMl : 
110 SPM4: 
jSPM6: 
lSPM7: 



.WORD 

GPRMD 

GPRMO 

ENOSFT 

.EVEN 



.ASCIZ 
.ASCXZ 
.ASCIZ 
.ASCIZ 
.S8TTL 



-1 

SPM6. 4. D. 7777. 0.7777. YES 
SPM7.6. 0.7777, 0.7777. YES 



•ENABLE TRANSPORT TESTS 
•INHIBIT ITERATIONS 
'PER TEST ERROR LIMIT 
PER UNIT ERROR LIMIT 
PATCH AREA 



I GET LOCAL ERROR LIMIT 
I GET GLOBAL ERROR LIMIT 



I FINALLY A GENEROUS PATCH AREA. 

I AND AN AOX'-TMENT TO ACCOUNT FOR THE "LASTAD BIT7* 

t DESCRIBED IN "SUPPRG.MEM" (FOR REV C). 

i 



HACK 



PATCH: 

: 



L<LAST: 



.BLKU 
.BLKU 



32. 
1. 



.IF NZ,.6377 
.-.!577»1 
.ENDC 
LASTAD 
.EVEN 
.WORD 0 
.WORD 0 



ENOnOQ 
.SBTTL 



I SET LAST USED ADDRESS. 



t 

i - - 



LlOlll: 



L10113: 



HARD COOED P- TABLE 
DIAGNOSTIC IS PRE -PARAMETERIZED PER THIS TABLE 

BGNSETUP 1 

BGM>TAB 

.WORD 0 

.WORD L10113-./2-1 



.WORD 
.WORD 
.WORD 
ENDPTAB 

ENDSETUP 

.END 



172522 

224 

PRIOS 



TSV6 - PAftMCTEft COOING MACRO MlllS 07-FEB-84 10:56 
SYMBOL TABLE 



AOOSSR 


011756RG 


002 


CIAU • 


000052 




OEVDRO 


023146R 


ADA ■ 


000020 G 




ClAUTO- 


000061 




DEVNRD 


023065R 


AMBTSS 


00644SR 


002 


CtBRK " 


000022 




DEVNXR 


023003R 


ASSEMB" 


000010 






CtBSEG- 


000004 




DEVONL 


022733R 


A1716 " 


000005 






CtBSUB" 


000002 




DEVSUM 


022676R 


8A0DAT 


0031S4RG 


002 


CfCEFG" 


000045 




DFPTBL 


002154RG 


BAC^R 


015510RG 


002 


CICLCK- 


000062 




OIAGMC" 


^^^^ Mtf^ A 

000000 


BD>/PCR" 


177520 G 




CvCLEA' 


AAAA4 

000012 




DICEA « 


AAAAA 4 

OOOOOl 


BENBSU 


002226RG 


AA'> 

002 


A A Al A^ -~ 

CvCLOS" 


AAAAVC 

000035 




A^B 

DSoINT 


A< £A4 AB 

016014R 


BIE ■ 


040000 






CJCLPl" 


AAAAA^ 

000006 




Al 1 A A 4 

DUA012 


AAA£ VCB 

004635R 


dITO ■ 


AAy\AA« 

000001 


G 




A M Ah A — 

CICVEC" 


AAAAV^ 

000036 




AA iPI A 

OUFLG 


AAV • 4 ABA 

003110RG 


BITOO " 


000001 


G 




A * A At U _ 


AAAAA M 

000044 




Al IMMW 

DUnnT 


AA VAf AA 

003060R 


B^ Ty\« . 

BlTCl ■ 


000002 


G 




A*f\/WV l_ 


AAAAC 1 

000051 




Er .CON" 


AAAA V A A 

000036 G 


BIT02 ■ 


000004 


G 




C»DRPT* 


OOOOc4 




Er ,NtW" 


AAAA VC A 

000035 G 


DlTOo ■ 


/VA/\A« A 

000010 


G 




A * m 1 K 


000053 




bija_ 

Er .PWR" 


AAAA V A A 

000034 G 


dIT04 ■ 


000020 


G 




A ACnTT B 


000003 




Er .RES" 


000037 G 


61105 ■ 


000040 


G 




A ACon^B 
Cf cKUr ■ 


000055 




Er , blM" 


AAAAA A A 

000040 G 


oITOd ■ 


000100 


G 




A ACOUOm 

CltHMR* 


AAAAK£ 

000056 




EnAXuU 


A V A A V • B 

01661 IR 


oIT07 ■ 


000200 


G 




A A ftSBA_ 

CIcRRO" 


AAAA£ A 

000060 




cu _ 

EN ■ 


AAAAAA 

000000 


Q T T _ 

DiTOO ■ 


000400 


G 




CfcHSr ■ 


OOOU34 




CNAINT 


A4 C^^OD 

0157O2R 


dIT09 • 


001000 


G 




A ACAf A_ 

CvERSO" 


000057 




ENVIRN 


AAAA CAB 

0204 50R 


OlTL ■ 


000002 


G 




A *f CA A * 


OOOOlO 




EPRTSW 


002176RG 


D TT « A _ 

DlTlO • 


002000 


G 




A *f C!CA_ 

CtEScG" 


000005 




EPRTl 


006170R 


QTTI « 
DiTll " 


004000 


G 




CfESUB* 


000009 




EPRT2 


006170R 


dITI2 " 


010000 


G 




CfcTST" 


AAAAA4 

OOOOOl 




CBAU 

ERCn 


A V • K A va 

01154SR 


DIT19 • 


020000 


G 




CfcXIT" 


AAAAV^ 

000032 




ERRHI 


AAA AVA^^^ 

0022S4RG 




040000 


G 




A A AP TB — 

CIGETB" 


AAAA^f 

000026 




ERRK 


A « A C ^ AB 

016570R 


O T T4 K a 


100000 


G 




CIGETW" 


AAAA^^ 

000027 




f BAl A 

ERRLO 


AAAA VA^^^ 

0022S6RG 


dXTc ■ 


000004 


G 




CtGnAN" 


AAAAA V 

000043 




ERRNO ■ 


AAA4 A A 

002144 


DTT V _ 


000010 


G 




CIGPHR" 


AAAAA A 

000042 




ERRVEC^ 


AAAAAA A 

000004 G 


OT TA — 


000020 


G 




CIGPLO" 


000030 




PAT ABC 

ERTABE 


W^A A 

003374R 


D T Te _ 


000040 


G 




A A AAA V _ 

CfGPRI" 


000040 




CBT ABl 

ERTABL 


AAV • VAB 

003174R 


DTT^ ■ 


000100 


G 




CIINIT" 


AAAA4 4 

000011 




ESltl 


016S72R 


Q TT T m 


000200 


G 




A A VUi A _ 

CIINLP" 


AAAAAA 

000020 




EVL " 


OOO0O4 G 


Q TTA . 
Dl 1 O ■ 


000400 


G 




CIMANI" 


AAAAE A 

000050 




EXBCNT" 


AAAA* A 

000010 


OTTO 
Dl 1 ^ ■ 


001000 


G 




CtnEn ■ 


000031 




EXPBRE 


A« K V • ABA 

0153 12RG 


fine . 


000400 


G 




CtMSG " 


000023 




wAA 

EXPO 


0022 SORG 


DHINI 1 


004451R 


002 


CtOPEN" 


000034 




C WBAAT 

EXPGOT 


004525R 


DCCI A M 


000000 






A A n&aVB _ 

CIPNTB" 


AAAA4 M 

000014 




C WBAT A 

EXPGT2 
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